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ABSTRACT 


tf THe eA OPTION. “It Tests ALL THE FUNCTIONS OF T 


uit SPECIFIC NUMBER C 
REQUIREMENTS 
EQUIPMENT 


LETH OR MITHOGT oe HARDWARE SHTTCH RECTSTER 


STORAGE 
2.2.1 PROGRAM STORAGE - THE ROUTINE USES 8k MEMORY 


LOADING PROCEDURE 
METHOD 


CPOE EOURE Dore None NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 


CONTROL SWITCH SETTING 


STARTING AT SA 200 ALL SWITCHES SHOULD BE SET AS INDICATED. 





#eeIF SOFTWARE SWITCH REGISTER IS SELECTED THE 
“tes BE Paes 


refer to section S.1.2 for more information### 
STARTING ADDRESS OR ADDRESSES 
SA=200 


PROGRAM AND/OR OPERATOR ACTION 


L PROGRAM INTO MEMORY. 
LOB TART ye ADDRESS 


SET SHIT ch "(SEE S) ALL DOWN FOR WORSE CASE 


IF THE SOFTWARE SWITCH REGISTER IS 
SELECTED THEN THE FOLLOWING IS PRINTED: 


X NEW= 
(REFER 10 SECTION. S.1 FOR OPERATOR OPTIONS) 








THE PROGRAM WILL LOOP AND 
wi er RING ONCE PER PASS OF THE PROGRAM. 
MINIMUM OF a PASSES SHOULD 


ALWAYS BE RUN 


SE@ 0002 
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S.1.1 


DO1 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SE Fh "Ule- od MT RSOROMAIR AEST A 


TINE. IN IN P ids (BELL WILL RING AT COMPLETION 


SWITCH SETTINGS ARE 











ait =] : T "Looe RROR 
Swi3 = 1 - TeerBrT if O88 rout 
Sil : i I Bit EipeaTion Looe 
suk = H aa TP BIVIOE est 
As DIAGNOSTIC I PU WITHOUT A SWITCH 
STER THEN. 6,50: THAR Sulton REGIS! RAR ee Suite H REGISTER. 
'f 5 SHE RE OCT SSO RPE Nara nce 
CONTROL: 


achterce PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
Both fre E (LOC. Bri onthe: FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 


1) TYPE CONTROL G 1G) THIS WILL ALLOW THE TTY To ENTER DATA INTO 
LOC. 176 AT SELEC Eb POINTS WITHIN THE PROGRAM. 


2) THE MACHI en TYR; 1 ere (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOF “Sut CH REGISTER. ) 


3) AFTER THE ’’NEW=’’ HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A RT onog? NTO LOC. 176 F D BY A <CR>. 
(ONLY y NUMBERS BETHEEN O WILL ACCEPTED NLY 6 NUMBERS 


WILL BE ALLOWE 
FIRST KEY "gt at SOFTWARE SWITCH 





IF A <CR> IS THE 
REGISTER CONTENTS WILL NOT BE CHAN 


B) Ua CONT ROM. ye IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 


a —— © =e eee ee - 
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S.2.1 
S.2.2 
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5.2.4 
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SUBROUTINE ABSTRACTS 
BEGIN SA 200 


ae ee L 
seers ote Fre Aay He L 


BE “i LPHAT. 
IS ENTERED, Sou CH 11 ONA1T 
SUBTESTS. NOTE: SUPPORTS C 


Ni SUBTEST 
TARTING 
RED. 


RE WILL 
NEXT SUBTEST 
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AC. MQ. AND SC AT 
SuPPORTS CONT-G ROUTINE. 
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THIS SEQUENCE 
OGRAM LOOP 
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5.3.1 LOADING AND ee 


SCOPE ON 
HIT Eon it 
UP TO DELETE PRINTOUTS. 
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PROGRAM AND/OR OPERATOR ACTION 
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OUT. _WHEN 

SSARY TO 













© 
said 5 LOOP ON RNERROR.” AND SW13 





ERRORS 

ERROR PRINTOUT 

ARE INA F WORD FORMAT, THE 1ST IS PC+2 OF THE 

DETECTED ERROR THE SECOND IS THE AC, THE THIRD IS 
THE LAST IS THE SC. THE LISTING WILL 

REFLECT THE TRUE ANSWER. 

ERROR RECOVERY 


RESTART AT 200 
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10. 


LM. 


RESTRICTIONS 

STARTING RESTRICTION 
NONE 

OPERATIONAL RESTRICTION 


NONE 

MISCELLANEOUS 

THIS PROGRAM SHOULD BE RUN IN CONJUNCTION 
WITH MAINDEC-11-DZKEC-A (ERE RANDOM EXERCIZER). 
EXECUTION TIME 

ABOUT 40 SECONDS WITH ALL SWITCHES DOWN 
PROGRAM DESCRIPTION 


Ls Sm UG’. A STRAIGHT LINE T m8 


E TAR a ah re ER OF SUB 
ae, TEST 
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fanart AEM Aci ct 
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;* 
:*DIGITAL EQUIPMENT COR 
MAYNARD, MASS. 01754 


;% 

s BOD EF TED BY ALAN BRP Liens JULY 1976 TO SUPPORT 
#208 THAR SWITCH rel? 

es A LOADING OF SOFTWARE SWITCH 


 STSSTESCOUSSTEETEEEERESEESSAEEEEEERSOEESOEEESSuREOSEESeCESSeES 
SWITCH SETTINGS 


SWITCH USE 
00 INHIBIT SHIFT AND NORMALIZE TEST 
01 INHIBIT MULTIPLY AND DIVIDE TEST 
10 0 - BELL ON PASS COMPLETE 
1 - BELL ER 
11 INHIBIT ITERATIONS 
5 INUTBIT TePEOUT 
14 tgbe b Test 
5 LT ON ERROR 


; LLLALAKALAELELE LEE ELLA REL SAALARALARALALERARLAARLALARALARLAALERFREE 
Pertti tt ttt tt tii tt ttt ttt titi titiitiiittitititi tii ttir tise. 


ND 


m 
FEEEAZESBIR BS 


I01 











C-11-DZKEB-B8 MACY11 30(1046) O1-NOV-77 08:13 PAGE 2 
-Pil O1-NOV-77 OB: le SE@ O008 
=0 
=30 
PRINT 
340 
=34 
SCOPEC 
.=40 
990040 0 
00004 0 
000044 “ 0 
o00046 ie SENDAD 
o000sS0 0 
=Se 
ooo00s2 0 
HLT = EMT 
PSwW= 177776 
NOP= 240 
SCOPE= TRAP 
000174 “i 177570 
000176 SUREG: 0 
999200 017406 MOV “BUFF .%6 :SET UP STACK FOR SCOPE LOOP 
O4 Ol622e2 oo0004e CMP #SENDAD, aeve ‘CHECK FOR AUTO M 
le BEQ 1$ -YES, DO NOT TYPE TITLE 
000214 CLR 4S 
00021 020075 , MOV #SHEAD, 4S : TYPE PROGRAM NAME 
g002e 017676 JSR %7.TTOUT 
0200'S MOV ashaIN “S ; TYPE MAINDEC NUMBER 
000232 0176bo6 JSR 7? TTOUT 
000236 000022 1S: IMP Si suR 
BB8 5 Rey 7088 
000246 MQ: 177304 
00 MUL : 177306 
000252 Sc: 177310 
0254 SR: 177311 
000256 NOR: 177312 
000260 LSH: 177314 
002 ASH: 177316 
5 RERKKKLELERLE RELA LARA AL KALLA RAAKARAA RARER EERELELLERE RELL EERE 
TEST FOR HARDWARE SWITCH REGISTER 
s RELARREERAAEEEARGE REEL LER RAARELAAAAALHALAKLLLERARRRAAERALLALEE 
000264 013746 oOo0cdE caeaate MOV #6, -(6) ;SAVE VECTORS 
000270 013746 o00004 MOV #4°-(6) 
00274 012737 000314 ocoD0004 MOV #64$. 384 :SET UP FOR TIMEOUT 
000302 022777 177777 177664 CMP #-1, ISWR :REFERENCE HARDWARE SWITCH REGISTER 
000310 0o0140e2 BEQ 6S$ 
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HPeoero BS 


= be 
oo 


LT 


C-11-DZ2KEB-8 
“Pll O1-NOV-77 08:12 
090312 oo0404 
000314 Oeeber 
316 012767 
012637 
b00334 | Ose7e7 
7 000342 001006 
$8 000 2737 
see 
86 O003e4 04769 
01 OO 012767 
62 00038 SO 
0372 005077 
4 000376 005003 


MACY11 30(1046) 


016eee2 
017114 
000360 
1776Se 
177650 


177650 


177632 
00004e 


016750 
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BEGIN: 


%?. CNTLU 
#BEGIN, RETURN 
JAC 
aMQ 
%3 


;ADJUST STACK 
‘POINT TO SOFTWARE SWITCH REG 
‘RESTORE VECTORS 


;I1S SWREG USED 


:CHECK FOR AUTO MODE 

-YES. ASSUME WORST CASE 
‘ALLOW SWREG TO BE LOADED 
‘SET UP RESTART OF PROGRAM 


SE@ 0009 


KO] 


MAINDEC-11-DZKEB-B MACY11 30(1046) O1-NOV-77 08:13 PAGE 4 
DZKEBB.P11 O1-NOV-77 08:12 SEQ 0010 

10S s ELHAALAHSLAASALALA LAA LRAAAARAALAAALAAALLAAARLAAALRAELLERAAAAELELELE | 

106 REGISTER TEST FOR WRITABILITY 

107 i, suaneesisbaresaraitanssossouseuseuvesunenuesnnenncanneseessnens 

tet Onde 104400 SCOPE :CHECK SR AND SC FLOPS FOR O STATE 

110 gu0e 012777 ooo000 177642 MOV #0. aSC 

111 eee 108777 177636 TSTB ast 

lle 000414 001401 BEQ 64$ :IF NO.ERROR SKIP HLT 

113 900416 104000 a HLT ‘CALL ERROR ROUTINE 

11S 

11 O44 SCOPE :CHECK SR AND SC FLOPS FOR 1 STATE 

11? poD4Se 012777 140477 177622 : MOV #140477. aSC 

11S Soouss Here 997305 Bie #37300, (6) 

lel rere 11401 BEQ B53 ; IF NO.ERROR SKIP HLT 

12e BOONE 104000 HLT ‘CALL ERROR ROUTINE 

le 6SS$: 

124 0004S0 005077 177576 CLR asc 

126 OO04S4 104400 SCOPE :CHECK MQ FLOPS FOR O STATE 

127 DOO4S6 012777 000000 177562 MOV #0, 3MQ 

138 goo470 Ool4G, |e , to .IF NO.ERROR SKIP HLT 

130 900476 104000 ae HLT ‘CALL ERROR ROUTINE 

132 ‘ 

133 000474 122777 oO0036 177552 CMPB #36, aSR - CHECK K STATUS 36 

134 oooSo2 O01401 . BEQ 67$ :IF NO.ERROR SKIP H 

136 990504 104000 sn HLT ‘CALL ERROR ROUTINE 

{36 000S06 104400 SCOPE :CHECK MQ FLOPS FOR 1 STATE 

139 000510 012777 177777 177530 MOV #-1, MQ 

iat BODE SS 551401 tag ted he ela SEO et ie :IF NO.ERROR SKIP HLT 

ie 000526 104000 an HLT ‘CALL ERROR ROUTINE 

144 ; 

14S 000530 2777 O0004 77 CMPB #42, aSR - CHECK K STATUS 42 

146 O00536 napeey re BEQ 695 :IF NO.ERROR SKIP H 

142 uC 104000 ae HLT :CALL ERROR ROUTINE 

149 ppDeuS 104400 SCOPE :CHECK AC FLOPS FOR O STATE 

150 000544 012777 oDD000 177472 MOV #0. JAC 

ies Bobeee Barca, 7768 p78 LTE, NO,ERROR SKIP Lt 

183 BONER 104000 “ae HLT -CALL ERROR ROUTINE 

1SS oman ; | 

156 oOOS62 122777 OONDeC 177464 CMPB #20, aSR - CHECK STATUS 20 

157 000570 O01401 BEQ 71$ :IF NO.ERROR SKIP H 

158 000S57e 104000 HLT “CALL ERROR ROUTINE. . 

15 000E74 713: 
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~ 
Zune § 


PUL EUs OLDeo VOU 


“N 
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>-— > b= b= 6 — b= 1 — bP DP bP Pe bb b= = bb bo be bP = 2 bP bb bp be po pe a oe 


QS0S99200:05 20595 DOR RammmD). 


000S74 





000770 


C-11-D2KE8-B8 


Pll 1-NOV-77 


104400 


005077 
005777 
001401 
104000 


112777 
022777 


022777 
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5-17 SAC 
72S 


#4e,aSR 
73$ 


177777 
177777 


177306 
177300 


177777 
177777 


177777 


7744 
135q39 


177430 


177374 
177366 


177352 
177344 


0164ee2 


177324 
177314 


177270 
17726e 


177246 


723: 


733: 


CPl: 


64S: 


OUTPC: 


64S: 


6S$: 


66$: 


LO1 


#4000 , SCOPEF 


#-1,aMQ 
#-1,aAC 
64S 


#-1,aAC 


;CHECK AC FLOPS FOR 1 STATE 
;IF NO.ERROR SKIP HLT 
; CALL ERROR ROUTINE 
Pt tp at 42 
NO ERROR ROUTE 
ALL ERROR ROU TNE 


;CHECK AC AND MG WITH ALL NUMBERS ~ 


;FINISHED WHEN CP=0 
;LOAD MQ 


- IF NO chnoe SKIP P HLT 
‘CALL ERROR ROUTINE 


;LOAD AC 
: TEST AC 


AC.NE.CP 

TION EXTENTIO?! 

haat “h 

SIGN XTENTION 


Fr 
-IF NO. cing 's SK 
-CALL ERROR ROU 


TS 


CALL ERROR ROUTINE 


bi ae OF BYTE SIGN EXTENTION 
FOR “ee EXTENTION IN MQ 
a its 
ALL ERROR R TNE 


;CHECK FOR SIGN EXTENTION IN AC 


SE@ 0011 


= 


' 

| 

| 
| 
| 
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205 00077 1401 
$36 931003 104000 
SoS (001 ’7 
sto BBLboe | OOETz7 
ole 001015 OB 4000 

13 001016 
214 OO1016 707 
sie bo10ed 104000 
13 80i0e¢ 
219 90102 012777 
SeT DbIbde 01401 
S22 OOlO44 i 
223 001046 
$85 651534 028777 
2 01 1401 
556 Boibe, 101000 
229 001066 022777 
231 65187 rtaretatate 
333 
234 001100 012777 
be Rite farce” 
537 001116 104000 
238 001120 
339 

4S? Batiss §=BRe%S5 
cus Boiise fodana 
544 001134 
54s 
Fitts 

4? 

4g 
549 
250 001134 O00"767 
551 001140 32777 
56> 901146 o01402 
563 001150 000167 
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177222 


100000 
177777 
199997 


177600 


01$e6e 
000001 


011736 


177026 


MO1 
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BEG 67$ : IF NO.ERROR SK IP HLT 
HL T ‘CALL ERROR ROUTINE 
67$: 
CLRB aMQ 
TST aMQ 
BE 68S - IF 
HL CAL 
6e8$: 
TST JAC 
BEQ 69$ - IF 
HL T : CAL 
69$: 
MOV #100009, aMQ :LOAD MQ WIT 
CMP -1,aAC DID iT SIGN EXTEND 
BEQ 50g" s1F NO NO. ERR IP HLT 
non HLT :CALL ERROR ROUTINE 
MOVB ° s200 MQ . MQ WITH LARGEST BYTE 
CMP sac i ORO SI EXTEND 
BEQ 71 18’ ;IF NO.ERROR SKIP HLT 
n— HLT ‘CALL ERROR ROUTINE 
CMP #177600, ama » ies 4010 DIT SIGN EXTEND 
HL ‘AA ERRGR ROUTING 
7e3: 
MOV #77,aSC OAD sc oi -1 
CNP 877, JNOR CK F Rc. EXTENTION 
EG 723" - IF NO. ci OR SKI 
HLT ‘CALL ERROR ROUTINE 
733: 
CLR SC >CL AR S 
NOR NOR 
BEQ 74§ IF NO. cAROR Sk TP HLT 
L ERROR ROUTINE 
74S: 
: pRUssEsagSenEseReNEsaesEeENeseeevercls tae uae sr bate 
ar TH HIS POINT, ALL THE REGISTERS CAN HANDLE DATA OF 
f : nannaann seananesesuseseausseeueueucuseueususauesscousoussounses 
ISR %7,CKSWR :CHECK FOR CONT-G 
BIT 1 aSWR 
EQ MOOL 
IMP .DIV 


SE@ O0le 


pa ba 8 bo be & oh = 
ui 


slelat={={=latat= 
PNewT 


at 


py SD eee Pe pt pe be p= pe bs b= be fb bo be Be 


rm oMrorororoforu 


Oo rvs LO 


BE38008 


Rels{=|=]=l=]=|=|=sl={={=I=t= 
o° 
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EB-B 
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022700 
001357 
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177062 
177060 
177777 
1770Se 


1770S4 
177036 


000036 


0000e0 


000001 


177002 
177004 
176764 


000036 


177760 


177032 


176762 


Ol 
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ammtemeae yay TS aS Semmes eiatatapatacaantnianictaicte 
; LOGICAL SHIFT TEST SECTION 
TE T MQ SHIFT OF O’S L 
EE ARE EEE ERE R ERED EERE EE EEE EEE 


hide 


SCOPE 
CLR aAC 
CLR aMQ 
MOV #-1,%0 
LOOP: INC %0 
CLR asc :CLEAR SR AND SC 
MOV %0, 3LSH SHIFT RO TIMES LEFT 
TST amd TEST MQ FOR ’0’ 
BEQ 64S -IF NO. ERROR SKIP HLT 
a HLT ‘CALL ERROR ROUTINE 
CMPB #36, aSR - CHECK ss REGISTER 
BEQ :IF NO.ERROR S 
ae HLT -CALL ERROR ROUTINE 
CMP #16.,%0 sLAST ONE 
BNE OOP 


+ RGR ERR E ERR A RRA RE RARER REE EERE REE RE 
TEST AC FT OF O0’S 


: ES 
. gyecetay, " rrmayeriearaieees peep crteete melons amencntgaence 7 demmmpereree: seem: 
MOV #1,%0 
LOGP1: DEC x0 
CLR asc ;CLEAR SR AND SC 
MOV %.0. 3LSH i SHIFT RO TIMES RIGHT 
TST aac TEST AC FOR ’0’ 
BEQ 64S - IF NO. ERROR SKIP HLT 
“oe HLT ‘CALL ERROR ROUTINE 
CMPB #36, aSR -CHECK STATUS REGISTER 
BEQ ESS :IF NO.ERROR SKIP HLT 
ee HL T ‘CALL ERROR ROUTINE 
CMP #-16.,%0 :LAST ONE 
BNE LOOP’ 


— ee 


WWWWWWWWW 
eT a a eT a 


WDONMU£LWe- 
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5001 
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a? 
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See : 
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WIUUTU 

2S 





eater 


177777 
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176732 


177777 


176710 


176666 


176666 
176646 


176642 


176620 


176620 
176600 


176574 


176SSe 


1765Se2 
176532 


176526 


176504 


B0e 
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5s REERES EEE EERE EEE RESET ERE E EERE REESE EEE EEE EEE S 
TEST MQ SHIFT RI 


64: 


65S: 


66S: 


67$: 


68$: 


69S: 


70S: 


71$: 


SCOPE 
MOV 








OF 1°S 





#-1,aMQ 
#177776, aLSH 
83777 


7, aMQ 


#23,aSR 
69$ 


#-1,aMQ 
#177775, aLSH 


#17777, ama 
70S 


#23,aSR 
71$ 


#-1,aM0 


sRESET MQ 


; GHT 
eee TTT rete ttt Te Tet i Tel Tit T itt et ttt ttt titi iitttiitiiiiiiiiiry 


hdiR 


sSHIFT 177777 TIMES RIGHT 


- IF NO.ERROR skip HLT 
‘CALL ERROR ROUTINE 


- CHECK STATUS 
NO.ERROR SKIP HLT 
MO ERROR ROUTINE 





Bid 
; CALL 


sRESET MQ 


;SHIFT 177776 TIMES RIGHT 
sCHECK MQ 


-CHECK STATUS 
-ERROR SKIP HLT 
ERROR ROUTINE 


x. 


;RESET MQ 


;SHIFT 17777S TIMES RIGHT 
HECK MQ 


. ERROR skip Het 
ERROR ROUTI 


- CHECK STATUS 
NO.ERROR SKIP HL 
L ERROR ROUTINE 


x. 


;RESET MQ 


SE@ 0014 
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Pb he ban ban ae Bae be he be be hh pe be 


BESSSERR88888 SsEBReseEe 
TERBNEEKS BEERRRINORS Bo ahRowe 
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af ht 


wes 
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00S077 
012777 


a 


se 


77 
12777 
2777 
1401 
104000 


2777 
1401 
104000 


104400 
012777 
7 


777 
001401 
104000 


122777 
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176476 
177774 
007777 


0000e3 


—_-—]—-— me - 


176S04 
176464 


176460 
176436 
176436 
176414 
176410 


176366 


176366 
176346 


176342 


176320 
63 
176300 


176274 


COe 
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723: 


733: 


74S: 


753: 


76S: 


773: 


78S: 


aAC 
8177774 QLSH 
8227 7, a0 


$53 95R 


#-1,aMQ 
0773, @JLSH 
83777 , JMG 
74S 


823,aSR 
75$ 
#-1,aMQ 


#177772, JLSH 
#1777, aMQ 


io 


#-1,aMQ 


297771 QLSH 
7, aMQ 


#23,adSR 


; IF 
> CAL 


: SHIFT gt fo TIMES RIGHT 
3 igs gunner axth HE 


) NO. ERB OB SK aM 


YO ERROR ROUTINE 


sRESET MQ 
sSHIFT 177773 TIMES RIGHT 
sCHECK MQ 
26, 0° ERROR rat int ' 


Aa te 1p at 


7 ies ERROR Root inet 


sRESET MG 
sSHIFT 177772 TIMES RIGHT 
K MQ 


: IF NO.ERROR skip wot 
:CALL ERROR ROUTI 


NO. ERS OH cic Pe 


‘Chul ERROR ROUTINE 


;RESET MQ 
;SHIFT 177771 TIMES RIGHT 
HECK MQ 


NO.ERROR SKIP HLT 
L ERROR ROUTINE 


;CHECK STATUS 
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vSR 
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sit 
vf 
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001401 





1401 


SE 
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08:1le 


177777 
176244 


0000e3 





177777 
7 


179768 
000037 


000023 


1762Se2 


17eS3 


176226 


176204 


176204 
176164 


176160 


176136 


ieiie 


176112 


176070 


176070 
1760S0 


176044 
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7933: 


80S: 


81S: 


83S: 


BAF: 


sss: 


86$: 


79$ 


#-1,aMQ 
6105720 @JLSH 
#377, aM0 


#23, aSR 
81$ 


gagsne 
#177767, aLSH 
#177, aMQ 


852. 95R 


Het aha 


ahe7766, , JLSH 


84s’ 


#23,aSR 
8S$ 


#-1,aMQ 
#177765, JLSh 
#37, IMQ 






#23,aSR 


; IF NO.ERROR acee T 


HL 
:CALL ERROR ROUTINE 
;RESET MQ 
; SHIFT 4 04 AP TIMES RIGHT 


: IF NO.ERROR ski HLT 
‘CALL ERROR ROUTINE 


sCHECK STATUS 


Be NCeRROR ROUTINE 


;RESET MG 
; SHIFT gh + TIMES RIGHT 


m TERROR aanté 


NO. ERR a 
LOERROR ROU ROUT INE 





;RESET MQ 
; SHIFT i777ee Vines RIGHT 


: IF NO.ERROR sxib HLT 
-CALL ERROR ROUTI 


Una, tee aM 


Sout Ps et ee 


;RESET MQ 
;SHIFT 177765 TIMES RIGHT 


NO, gRRoR,sxtP t 


sCKECK STATUS 


SE@ 0016 


= tS eR mm 


MAINDEC-11-DZKEB-8 
OZKEBB.P11 





ee oes 







bh pe pe 
oo’ £ru 
—_- = 
: 


R Rin 
8 Bias 





$58 


Reni 


2 
372 


Rain 


374 


O1-NOV-77 


OO oe 





2 
= 


— 

2: 
£ 
a | 
~ 


? 
8 


2777 
777 


ie 


e 
001401 
040 


0000e3 


177777 
178700 
177762 
000003 


000023 


177777 
17S63e 
177761 
000001 


000023 


176022 


176022 
176002 


175776 


175754 


17S7S4 
175734 


175730 


175706 


17S706 
17S666 


17S66e2 


175640 


17S640 
175620 


175614 


87$: 


sss: 


90$: 


91S: 


92S: 


93S: 


SYS: 


95S: 


87$ 


8-1,aM@ 
#177764, dLSH 
#17,aM@ 


#23,aSR 
89$ 


#-1,9MQ 
Tae 
30$ 


#23,aSR 
91$ 


#-1,aMQ 
#177762, dLSH 
#3, aMQ 






g2¢ 


#23,aSR 
938’ 


8-1, aM 
#177761, aLSH 
#1. aMQ 

gu¢ 


#23,aSR 
95$ 


w .ERROR_ SK T 


7 IF IP HL 

*CALL ERROR ROUTINE 

sRESET M@ 

sSHIFT 177764 TIMES RIGHT 
HECK MQ 


: IF NO.ERROR skip HLT 
‘CALL ERROR ROUTINE 


; CHECK ie 


:IF NO.ERROR SKIP HL 
:CALL ERROR ROUTINE. 


;RESET MQ 
; SHIFT eh fF TIMES RIGHT 


: IF NO.ERROR Kiet HLT 
-CALL ERROR ROUTI 


- CHECK STATUS 
-ERROR SKIP HL 
ERROR ROUTINE” 





sRESET MQ 
;SHIFT 177762 TIMES RIGHT 


-IF NO.ERROR SK BHT 
‘CALL ERROR ROUTINE 


“CHECK STATUS 
ERROR SKIP HLT 
Chul ERROR ROUT INE 





;RESET MOQ 
; SHIFT “jcHeGk Ma RIGHT 
74 fag aakte HL 


> CAL 

-CHECK STATUS 
-IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


SE@ 0017 


- — —— - me A A RR A A A A ALLL —§—$ LEAL LE A 
-_—— --— —— A A a mm me em ee 






UUIUIUIUTUT UU 


ss 
WOnNCU SW O 





wiv 


CRESS SRP ONS 


WwUulUl 
2 


Soe 


Sansa? Be 





122777 
001401 
104G00 


104400 
012777 
012777 


MACY11 
08:1 


7u 
17S5S4 


0003S0 


177777 
000001 
177776 


000311 


Aaah 
177774 
000311 


177777 
000003 
177770 


000311 


177777 
000004 


30( 1046) 


17SS64 
177777 


175550 


175524 
178532 
175510 


175506 
175462 
175470 
175446 
175444 
175420 


175426 
175404 


175402 


S356 
S364 


— 
NN 


FOe 
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cpeme° g W” oR OY | eer: 


; EST AC SHIFT OF 1’S LEFT 
+ = 3 SESE HEHE SE SE Se SE SE SE SE SE SE a a aE a a a a a aE 





AIL 
SCOPE 
CLR 
MOV #-1,aAC 
CLR aLSH 
CMP @AC, #-1 
BEQ 64S 
HLT 

BY: 
CMPB #350, aSR 
BEQ 6S5$ 
HLT 

6S$: 
SCOPE 
MOV - 
MOV #1. aLSH 
CMP #177776, JAC 
BEQ 66% 
HLT 

66S: 
CMPB #311,aSR 
BEO 67$ 
HLT 

67$: 
SCOPE 
MOV #-1.9AC 
MOV #2 OLSH 
CMP #177774, aAC 
BEQ 68S 
HLT 

68S: 
CMPB #311, SR 
BEQ 69 
HLT 

69$: 
SCOPE 
MOV #-1,aAC 
MOV #3, JLSH 
CMP #177770, aAC 
BEQ 70% 
HLT 

708: 
CMPB #211,a9SR 
BEQ 71$ 
HLT 

71$: 
SCOPE 
OV #-1, AC 
MOV #4, JLSH 


NO.ERROR SKIP HLT 
L ERROR ROUTINE 


“CHECK STATUS 
; IF NO. ERROR. Sk IP HLT 
-CALL ERROR ROUTINE 


IF 
> CAL 





-C 
:IF NO.ERROR SK 
:CALL ERROR ROU 


sSET AC=-1 

; SHIFT 3 TIMES LEFT 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


-CHECK STATUS 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


;SET AC=-1 
-SHIFT 4% TIMES LEFT 


SE@ 0018 


MAINDEC-11-DZ2KEB-B MACY11 30(1046) 
OZKEBB.P11 











E O1-NOV-77 O8:1le 
560 022777 177760 175342 
i S61 et 
BB Be aaazz 
4 122777 000311 175340 
S6S 001401 
eee 104000 
ees 
$70 
7 77777 122333 
72 000S 17532e 
7 177740 §=6175300 
aoe 
75 
228 
H 000311 175276 
581 
S82 
283 77777 »=€175e25 
006 175c6 
S8s 177700 175236 
289 000311 175234 
$30 
ea3 
a3 
$34 
eae 177777 175210 
596 177600 178174 
249 061401 
Par 104000 
60e 003054 122777 000311 175172 


GOe 
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CMP #177760, 3AC 
BEQ 725 
HLT 
7e3: 
CMPB #311,aSR 
BEQ 723 
HLT 
733: 
SCOPE 
MOV #-1,9AC 
MOV #5, aLSH 
CMP #177740, JAC 
BE 74 
HL 
74S: 
CMPB #311,a9SR 
BEQ 75$ 
HLT 
733: 
SCOPE 
MOV #-1,9AC 
MOV #6, JLSH 
CMP #177700, aAC 
BEQ 76$ 
HLT 
768: 
CMPB #311,aSR 
BEQ 77% 
HLT 
773: 
SCOPE 
MOV #-1,aAC 
MOV #7. aLSH 
CMP #177600, JAC 
BEQ 783 
HLT 
783: 
CMPB #311,aSR 






} 
SEQ 0019 
-CHECK AC | 
;IF NO.ERROR SKIP HLT | 
‘CALL ERROR ROUTINE | 
“CHECK STATUS 
:IF NO.ERROR SKIP HLT 
:CALL ERROR ROUTINE 
: HIFT 5 TIMES LEFT 
- CHECK 
;IF NC.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 





;SET AC=-1 
‘SHIFT 7 TIMES LEFT 


: IF NO. ERROR SKIP HLT 
:CALL ERROR ROUTINE 


;CHECK STATUS 


_ - 


_—— -——_ o- — ore le eee —$— 
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ba b= bp Labo Pee bps BR be 


“ 
rv 


1c 
ATA 


Sees 


003264 


01-NOV-77 


104000 
122777 


MACY11 30(1046) 


08:1le 


1 
177400 


000311 


177777 


000311 


177777 


174000 


000311 


175104 


i75112 


178070 


17S056 
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BEG 793 


SCO 
Mov = 80; SCH 


CMP #177400, , JAC 


79S: 


80S: 
gee gta 


81$: 


V #-1,a0AC 
#12+800. aac 





8eS: 
CMPB #311,aSR 
83S 


83$: 
ei, GAC 
#176800, aac 


84S: 
CMPB #311,aSR 
8s$ 


sss: 


86S: 
CMPB #311,aSR 


; 1F 
; CAL 


ALL ERROR ROUTINE 


‘eile? io TIMES LEFT 


; IF NO. Fag “Si HLT 
;CALL ERROR ROUTINE 


AEHEC aM 
; IF NO.E SKIP 
;CALL ERROR ROUTINE 


;SET AC=-1 

;SHIFT 11 TIMES LEFT 
NO.E SKIP HLT 
L ERROR ROUTINE 

sCHECK STATUS 


:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


sSET AC=-1 
; SHIFT l2 TIMES LEFT 


; IF NO.ERROR SKIP HLT 
:CALL ERROR ROUTINE 


CK STATUS 


- CHE 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


-SET AC=-1 
TFT 13 TIMES LEFT 


-IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


;CHECK STATUS 


SE@ 0020 


MAINDEC-11-D2KEB-B 
OZKEBB.P11 


65e 
6$3 
es 
ee 
Pee 
5 
660 
661 
662 
663 
664 
665 
666 
667 
668 
E90 


3272 
3274 





uh 
ne 


Be 
Pe 


SOReee S&F 
gage? 2 


: 


aE 


ROWNOTOWLY Woo 








O1-NOV-77 


001401 
104000 


812777 
012777 


Bees 
1401 
104000 


177777 
000014 
170000 


000311 
177777 
000015 
160000 


000311 


Ate 
0016 
140000 


000311 
177777 


000017 
100000 


000311 


174674 
17%70e 
174660 


174656 
174632 
174640 
174616 
174614 
174S70 


174S76 
174SS4 


174S5S2 


87$: 


89s: 


90$: 


91S: 


92S: 


93S: 


94S: 


9S$: 


I0e 
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87$ 


8-1, AC 
#14. aJLSH 
#176000, AC 
88S 


#311,aSR 
69$ 


#-1,a9AC 
#15: aLSH 
#160000, JAC 
90$ 


#-1,aAC 
#16,aLSH 


#140000, JAC 
925 


#311,aSR 
935 


#-1,aAC 
#17, a@LSH 


#100000, 3AC 
94$ 


#311,aSR 
95$ 


;IF NO.ERROR SKIP HLT 
;CALL ERROR ROUTINE 


SET =-] 
*SHIFT 14% TIMES LEFT 


sSET AC=-1 
34) tau 1S TIMES LEFT 


:IF NO.ERROR SKIP HLT 
:CALL ERROR ROUTINE 


“CHECK STATUS 
: IF NO.ERROR SKIP HLT 
-CALL ERROR ROUTINE 


: SET AC=-1 
; SHIFT 16 TIMES LEFT 
:IF NO.ERROR P HLT 

‘CALL ERROR ROUTINE 


-CHECK STATUS 
:IF NO.ERROR SKIP HLT 
:CALL ERROR ROUTINE 






sSET AC=-1 
-SHIFT 17 TIMES LEFT 


Cc 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


-CHECK STATUS 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


SE@ 0021 


YNYNY FF 
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pe 
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08:1le 


174514 


000020 


leSeSe 
177777 
174460 


1S2Se5 


leSese 


174S30 


12SeSe 


174S06 


174464 
174470 


174440 


174424 
174430 
174416 


174376 


174362 
174366 


174336 


174322 
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, ELLARAALALAAALAA LALLA LALLARRALAALALAAKLAATALRAAARLARREARAAAAELARRAE 
EST 


MQ SHIFT RIGHT OF ALTERNATE i’S AND O0’S 


T 
; RHKKKAARAAERLRAAA ALES Y RHARKKELALAAALLRERARAALALAAARLARALE RARE EE 


NOLOR: 


64S: 


65S: 


66S: 


67$: 


68S: 


69S: 


70S: 


71$: 


#12S2Se , JM@ 
JAC 


@JLSH 


IM@, #1eSeSe 
64S 


#20,aSR 


65$ 


#125eSe, 
#127777, 


aS 
66S 


#1SeSes, 
675 


wizsese, 
#177776, 
ai as 

68$ 


#i6S5eSe, 
69$ 


#leSeSe, 
177775, 
S 

70$ 

#172SeS, 

71$ 


#leSeSe, 


JMQ 
, JLSH 


aM@ 


aMQ 
aL SH 


aMQ 


aJIMQ 
aL SH 


aJMQ 


aMQ 


aa TIMES 


IE NO. EAR 


oO 
Oo DO 
ys] 


:IF NO.ERROR SKIP 
‘CALL ERROR ROUTINE 


SET Mee SSS e"_, 
‘SHIFT 177775 TIMES 
: CHECK STATUS - NO CARRY 
:IF NO.ERROR SKIP HL 

‘CALL ERROR ROUTINE 


-COMPARE MQ 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


;SET MQ=1eS2Se 


SE@ 0022 


—_——__ o 


MAINDEC-11-DZKEB-8 


-Pll 


003724 
37 


DZKE 


744 
744 





012777 
777 


4000 


022777 


KOe2 


MACY11 30(104%6) O1-NOV-77 08:13 PAGE I? 


1-NOV-77 O08:le 
177774 
000001 


17S2Se2 


177252 


174274 


174260 
174264 


174234 


174132 


723: 


733: 


74S: 


753: 


76S: 


773: 


78S: 


#177774, JLSH 
#1, aSR 

72% 
#175252, aMG 
738 
#125252, aMG 
#177773, JLSH 
JSR 

74S 


#176525, aIM@ 
7S$ 


#1775.25, aM 





:SHIFT 177774 TIMES 
“CHECK STATUS - WIT 
RROR SKIP HLT 


; SET et eSe 
. 72 TIMES 
= - WITH CARRY 


;SHIFT 1 
CHECK STATU 
ROR SKIP HL 





NO.ERROR SKIP 
L ERROR ROUTINE 


;SET NO 1535 e 


:SHIFT 17 
STA 


: CHECK 
IF NO.ERROR SKIP HL 
CALL ERROR ROUTINE 


;COMPARE MQ 


TIMES 
- NO CARRY 


SEQ@ 0023 


er > — 


— No TT, LL Le mm —_—_— ooo | tet ee a _ -<- —=s 


LOe 


MAINDEC-11-DZ2KE8-8 MACY 11 30(1046) O1-NOV-77 08:13 PAGE 18 
DZKEBB.P11 1-NOV-77 08:1 SEQ 0024 
g02 004114 001401 BEQ 79S -IF NO.ERROR SKIP HLT 
3 136 104000 —— HLT ‘CALL ERROR ROUTINE 
is A03799 1eS2S2 174116 soy #125252, aM SET 125252 
B09 is5 yee 177770 174122 MOV #177770, aLSH : SHIFT 1399590 TIMES 
808 0041 36 2777 OOOOOl 174110 CMPB #1.aSR i CHECK STATUS - WITH CARRY 
144 1401 BEQ g0$ :IF NO.ERROR SKIP HLT 
810 boise 000 a HLT ‘CALL ERROR ROUTINE 
812 00M: 922777 1776S2 174070 CNP #177652, MG te 4 COMP aR ARE MQ - 
By Beles Todos cf a 
1S 1 81$: 
816 
sie : 186 012777 12e52Se 174054 oy w12sese, aMQ SET MG S2 
B13 012777 177767 174060 MOV #177767, aLSH : SHIFT 2 767 TIMES 
105777 1740S0 TSTB ScR “CHECK STATUS - NO CARRY 
ge) 1401 BEQ 825 :IF NO.ERROR SKIP HLT 
104000 HLT ' -CALL ERROR ROUTINE 
823 19 82S: 
Bea 1 2777. (177725 174030 CMP #177725, aMQ -C MQ 
16 1401 BEQ 83$ :IF NO.ERROR SKIP HLT 
826 220 000 HLT ‘CALL ERROR ROUTINE 
Bee e22 83S: 
29 O44 SCOPE 
£33 ee ne heea 125252 174014 MOV #125252, aMQ -SET MQ=125252 _ 
831 OO4232 012777 177766 174020 MOV #177766, JLSH ‘SHIFT 177766 TIMES 
632 OO4240 122777 OO0001 174006 CMPB #1.aSR CHECK GM ATUS - WITH CARRY 
833 246 1401 BEQ g4$ -IF NO. EAR 
834 250 104000 HLT : CALL ERROR ROUTINE” 
835 2Se 84S: 
836 2 022777 177752 173766 CMP #177752, aMQ “COMPARE MQ 
83 4o 001401 BEQ 8S$ :IF NO.ERROR SKIP HLT 
338 O04 104000 HLT ‘CALL ERROR ROUTINE 
at 004264 SSF: 
nf 4 1044 SCOPE 
127 125252 173752 MOV #125252, aM ;SET MQ=125252 
B43 po4e74 612777 127765 173756 MOV #177765, , aLSH : SHIFT fare TIMES ppy 
4S refttat Ab 4d) BEQ Bes :IF NO. cAGHEC aM 
846 004310 1049930 HLT ‘CALL ERROR ROUTINE 
847 OO04212 86S: 


848 OO43le 022777 177765 173726 CMP #177765, IMO ; COMPARE MQ 


MAINDEC-11-D2KEB8-B 
01-NOV-77 


on 4o4 
b18273 


457401 
104000 


OZKEGB. 


Deen tobe bob URL es 


PERE PARAE 


ES 


© 
‘2 
Ww 


ety 


Pll 





104000 


MACY11 30(104%6) 


08:1le 


157569 
000001 


177772 


17354e 


177777 


173664 


173680 


173654 


173624 


173S2e 


“Oe 
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87$: 


89S: 


90$: 


915: 


92S: 


93S: 


94S: 


95S: 


87$ 


3197589" SSH 
+ ee 


#177772, aM@ 
895 


#125252, aha 


8177763, aL SH 
5R 


#177775, aM@ 
91$ 


#125252, IMQ 
$1 
92$ 


#177776, aM@ 
938 


Bhe?t rs ae 
95$ 


#177762, JLSH 
JSR 


si 77961; SH 
aus 


> IF NO.ERROR SKI®° 
CALL ERROR ROUTI 
SET MQ= 
FT 1 

> IF NO 


HLT 
NE 


Wo. RRR tt? ¢  UTTH CARRY 


:CALL ERROR ROUTINE 


F NO. ERROR SKIP. HLT 


‘CALL L ERROR ROUTI 





LO ERROR ROUTI 


T MQ@=12eS 
M K SATU 


TIMES 
TA US - NO CARRY 
P HL 


NE 


IF NO.ERROR SKIP’ HLT 


:SET MQ=125252 
: SHIFT 177762 TIMES 
‘CHECK STATUS - WIT 
:IF NO.ERR SKIP HLT 
-CALL ERROR ROUTI 


c, NOLERROR, SKIP re HT 


jer 17761 T TIMES 
STATUS - NO CARRY 





‘Cat SRRER ST int 


-IF NO. ERROR  eRIP HL 
:CALL ERROR ROUTI 


NE 


SEQ 0025 


— 
I = 


—— TS LT 
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INDEC-11-DZ2KEB8-B8 
OZKEBB.Pil 01-NOV-77 08:12 SEQ 0026 

a9q sf SKSKSKSSLSESSHRRSAREKAKAAAASRARERAARAA LA RAASRAAARAAARAARAAAAAARAAARLER 

300 : TEST AC SHIFT LEFT OF ALTERNATE 1’S AND O’S 

901 eer gga omencprmenmcgmen coRmesnE erTnleagoens 1 ~Bgempeay cr ensrie 

304 ama 

30S 173500 #125252, 3AC -SET AC=125252 

306 H ‘INITALIZE SHIFT BY O 

$07 les2Se2 dAC, #125252 -C AC 

3908 64S -IF NO. ERROR SKIP HLT 

203 ae ‘CALL ERROR ROUTINE 

91 173464 #310, aSR “CHECK STATUS 

$1 6S$ :IF NO.ERROR SKIP HLT 

91 -CALL ERROR ROUTINE 

$14 6S$: 

g15 

316 SCOPE 

917 173440 MOV #125252, JAC :SET AC=125252 

318 173446 MOV #1.aLSH ‘SHIFT 1 TIMES 

319 173434 CMPB w211,aSR ‘CHECK STATUS - WITH CARRY 

920 BEQ E6$ ;IF NO.ERROR SKIP HLT 

321 ae HLT -CALL ERROR ROUTINE 

32 2777 «~OS2eS24 173412 CMP #52524, JAC “COMPARE AC 

924 632 001401 BEQ 675 -IF NO.ERROR SKIP HLT 

825 004634 104000 HLT ‘CALL ERROR ROUTINE 

ass 67$: 

92 

928 

329 SCOPE 

$30 125252 173376 MOV #125252, JAC ;SET AC=12e5252 

931 000002 173404 MOV #2. JLSH ‘SHIFT 2 TIMES 

932 000110 173372 CMPB #110, aSR “CHECK STATUS - NO CARRY 

$33 BEQ 68S ;IF NO.ERROR SKIP HLT 

330 - ale HLT ‘CALL ERROR ROUTINE 

936 125250 173350 CMP #125250, AC “COMPARE AC 

937 BEQ 69S :IF NO.ERROR SKIP HLT 

938 HLT ‘CALL ERROR ROUTINE 

939 69S: 

3940 

941 

942 004700 104400 SCOPE : 

943 00470¢ 012777 125252 173334 MOV #125252, JAC ;SET AC=125252 

944 4710 012777 OO0003 173342 MOV 3. aLSH ‘SHIFT 3 TIES 

94S 004716 122777 ONO211 173330 CMPB #211, aSR -CHECK STAT! 5 - WITH CARRY 

946 004724 001401 BEQ 70$ -IF NO.ERROR SKIP b_T 

a2 00476 104000 a HLT :CALL ERROR ROUTINE 

949 004730 022777 OS2S20 173306 CMP #52520, aAC : COMPARE AC 





See Gan B03 
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0 .P 08:1 








il 1-NOV-77 SEQ 0027 
oC BEQ 71$ 
oC HLT 
JL 71$: 
os SCOPE 
oC MOV #125252, JAC 
i MOV #4 aL 
oC CMPB #1iG, - NO CARRY 
Jt BEQ 723 
Jt HLT 
as 72$: 
CMP #125240, JAC 
BEQ 3$ 
HLT 
733: 
SCOPE 
MOV #125252, JAC 
MOV #5, aLSH 
CMPB #211, aSR - WITH CARRY 
BEQ 74§ 
74S ~ 
022777 OSesS00 173202 CMP #52500, JAC 
a Bg 
l HL 
7S$: 
1 00 SCOPE 
12777 1leSeS2 173166 MOV #125252, 3AC -SET AC=125252 
012777 OO0006 173174 MOV #6. JLSH : SHIFT : TIMES 
2777 000110 173162 CMPB #110, SR i CHECK TATUS - NO CARRY 
1401 BEQ 76 :IF NO.ERROR SKIP HL 
00 HLT ‘CALL ERROR ROUTINE 


76S: 
022777 125200 173140 CMP #125200, aAC ;COMPARE AC 
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i 









Oe ae he ee ae be he be bo pe Pe 






cs 










a ee 
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777 
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40 


6% 
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773: 


78$: 


7393S: 


81$: 


82S: 


83$: 


84S: 


BEQ@ 
HLT 





#110, aSR 
84S 


77$ ;IF NO.ERROR SKIP HLT . 
;CALL ERROR ROUTINE 


#125252, 3AC 
hee 
sel : 
#52400, JAC 
#125252, JAC =1252S2 
810,058 ieee STATUS = NO CARRY 
84s 7 ;IF NO.E SKIP Me 
‘CALL ERROR ROUTINE 
SK 
ROU 


WITH CARRY 


8 2 JAC SET AC=125252 
siS 5c St ‘SHIFT 12 TIMES 


1f NO. ade at Oo 
CALL ERROR ROUTINE 


#124000, aAC ; COMPARE AC 
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8 BRERIS BLA 

1039 005320 

1040 

1041 

bus 12779 ize? 4 

28777 Oo0ell 172710 

1048 651401 

1bug 104000 

i 8 022777 OSO0000 172666 

tea oe, 

he 

1084 104400 

ise Bt leSeSe 1726Se 
1e777 O00014 172660 
le 000110 172646 

JSE 14 

, 

061 Oee777 120000 1726e4 

es BOL AOL 

4 





172S46 
17eSS4 
17eS4e 


172520 


87$: 


90$: 


91S: 


92S: 


93S: 
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8S$ 


a ae 


11,a5R 
3 


Bree 


#SO0000 , JAC 
87$ 


#1leSeSe, JAC 
BL 


#120000, JAC 
89$ 


#12SeSe, JAC 


s271 38h 





#40000 , JAC 
91$ 


#125252, JAC 
#16. aLSH 
#110, aSR 
925 


#100000, JAC 
93$ 





;SET 
> SHIF 


l 
JE, NOLERROR, SuTe 
AC 


:SET AC=125252 

:-SHIFT 16 TIMES 

‘CHECK STATUS - 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


COMPARE AC 
NO ERROR SKIP HLT 


IF NO.EF KIP 
‘CALL ERROR ROUTINE 


WITH CARRY 


WITH CARRY 


NO CARRY 


SE@ 0029 


° ——e = 
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«EBS? 
ta 
2 
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| 1036 
i 
ibss 
1S 
tips 
1103 —— 
il 76 000 
ll D0S6C 
110? 05600 122777 000036 
1108 N0SE1C 1000 
iii0 bO0se1e 
1111 
1118 
111 
| 4114 12 1044 
1115 149 O12 177777 
HHS Seeres Bierce Gaaaee 
| 1118 36 e777 TooOs 
His Bers TBlsth 
112 
lle 777 oo0000 
lle 14 
| , 
11 122777 000150 
il 1401 
11 72 104000 
11 74 
1130 
1131 005674 104400 
1132 76 012777 77777 
1134 7 bi So95 000037 
1135 0057 022777 100000 
1136 ? 1401 
1137 104000 
1138 ? 
1139 005732 022777 oD0000 
1140 O05 001401 
1141 boesuS 104000 
1142 744 
1143 005744 122777 000111 
i144 005752 O01401 
1145 005754 104000 
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172506 
172476 
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Mere ert ttttititititititiiiiiiitiitittiit tt tttttttittttttttttte: 
TEST OF M@ SHI 


hdac 
SCOPE c 
MOV #0, aMQ 
MOV 0; JAC 
MOV #16. .aLSH 
CMP #0. 9AC 
BEQ 64$ 
HLT 

64S: 
CMP #0, 3MQ 
BEQ 6S$ 
HLT 

6S$: 
CMPB #36, aSR 
BEQ & 
HLT 

66$: 
SCOPE 
MOV #-1 
MOV #0, 2AC 
MOV #16. .aLSH 
CMP 8-1, aAC 
BEQ $ 
HLT 

67$: 
CMP #0, IMQ 
BEQ 68$ 
HLT 

68S: 
CMPB #1S50,aSR 
BEQ % 
HLT 

69S: 
SCOPE 
MOV -1,9MQ 
MOV #0. 9AC 
MOV #31..d3LSH 
CMP #100000, aAC 
BEQ 70$ 
HLT 

70S: 
CMP #0, IMQ 
BEQ 71$ 
HLT 

71$: 
CMPB #111,aSR 
BEQ 725 
HLT 


; FT INT 
PETIT TT TTT TT ete TIT TTI Te Te TT TTT TTT ttt ttt itt itititttttitititeey 


LOGICAL SHIFT 


;TEST OF 
: WITH O 


3 
BS 
= 
= 





T (LSH) WITH 16. 
ITH 0 


i 


~"O 
x6 Axd MxB 


4E 
| om) 
=4 
= 
o 





ot yi 
348 


T (LSH) WITH 16. 


( 
-§ 


4A~EOrxre- 
a) 
460 
=x 


Axd Axo 
“= 





"OD 
w 
a 
+= 
Lm] 
+ 
x 
— 
ul 
a 


: 
a ae pine = le 


-COMPARE SR WITH 111 
:IF NO.ERROR SKIP HLT 
:CALL ERROR ROUTINE 
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WWW) 
bs bs pb 
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eM 
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000040 
000000 


0060 10 


000010 


oe 
coe 
000000 


000010 


900000 
po04a0 


171560 


171550 


171544 


171466 


171462 


171404 


91$: 


925: 


935: 


94S: 


9ss: 


96S: 


975: 


98S: 


99S: 


#40, JAC 
91$ 


#0, MQ 
92$ 


#10,aSR 
93$ 


#1,aMQ 
#0, JAC 
rios bac 
94 


#0, MQ 
9s$ 


#10,aSR 
96$ 


#1, 9M 
* 
#27. JLSH 


#200, JAC 
97$ 


#0, JMQ 


g8$ 


#10,aSR 
995 


#1,aMQ 


#0. aAC 
28,5 St 
100$ 





WITH 40 
T 

“COMPARE MQ WITH O 
NO. ERROR SKIP HLT 


“COMPARE SR WITH 10 
-IF NO. ERROR SKIP HLT 
‘CALL ERROR ROUTINE 





IF NO.EF 
CALL ERROR ROUTINE 


HL 
yo. CASOUPARE NG, WITH 0 

UE TERROR ROUTINE 

COMPARE 


TE, NOLERROR, Skt 


WITH 10 
T 


SHIFT 


T (LSH) WITH 27 
00 


= SHIFT 


OUNT, SH) WITH 30 


I 
H 
H 
C 
W 
T 


:IF NO.ERROR SKIP H 
:CALL ERROR ROUTINE 


I03 


O1-NOV-77 08:13 PAGE 28 


SEG 0034 


MACY11 30(104%6) 


O1-NOV-77 O8:le 





MAINDEC-11-DZKEB-B 


OZKEBB.P11 





. TT TT 


~~ 








a o a 
x x xr 
— - - 
= ~ ~ 
z =z =z 
- » = - 
u no Lu wo u wo 
O > 68 t 26 O zs 26 + 
= ai i‘ ww Oo = uo oF = 
= f te #405 = S 4052 S 
onl t  ) im 2 on al 4 > ] or o-4 
=z =z mIrroOze =e 
a Ty eh ¢ ot 
ui a} ie “Zz 
ar : ae 
2 Beene yor 
& = “? 
x ESSE x Ea 
oO e -IIIO Or 
8 A eeacacas . it 
oe - ar 
2 >) 
= zo 
ud ue 
gos "onuk 
© oO 
fen ow Sie = Bw on he = San ew Ow 
co oO 4Om=a0 oOo SO ~onuo oo 3&3 “ONTO On So 
BM a. Bee wm wm -< Rhos ee WM me we a3 wet we ye x RE -4 
Lu Ww 
aor or S>>>0.0r 2. or Bor S>>>0.0r 2. or Lor en acre for 
OM@F OF Heeeour Sux SHY SLLLSHS Sus SHS GOSSSWY Fwy Sus 
a a a a a a a A 
5 2, a Ss 6 §~ 68 & 2 
“4 — 4 — — 4 oF — 
. 2 - wg 2 & gReZ g Bg 
tw a8) tutulu- ms oa ttt oO oO 
- nN Nn RON nN nN RRA nN nN 
— — Som | Soom Kaen Ine Soe | Com ~_ Re Ree Seu Boon | _ Som | 
= S oon = 2 Ose 5 © 
: : 33 8 8 gsg8 8 8 
: 3 5S 8 Ss66 Ss 8 
te SS ESS SEERESE ESE ESE SERRE ESB fee 
Be Bee RE 23 RES R2E PRNDASS NES NES 
arta = Se- S82 S550 & 996 NO= Soooees ses “Se 





de 





eopennagyer nese RR ZBSOMT NOY TT HTRRTS 
uedenenneaee ee 


RRA 
DD ee ate tA AAD A ee. 
hf VR.ALK S559509505 59995 
sssssssss state 
TWO woo i Or Orw oO Tw.wor. 
AAAI CRRA BAAD R AAA ORO RR eEEReEREE 
LAANIAAMMAAMMANIAIIAIIAI IIA AIA OA AAAI 


Oe ewe ——_—— -——-=-- -— —_——— A -_-- 


——— ee 


=_———— me ee ee - 


— _-_—_- —-- = 


é 
: 


© 
N 
x 


bs bs fe Os a Bb BS em a ee he et ee fm = be pe = Be = == bt B= fh Bo Bm fh fm Os Be Bh Pe Se Re Bo PS bh bm bh b= hs Pe 


SELLS LSSISLSISCSC EGE CEL 


ERE ERARE SE 






CROBLESERI ER eae eR TEES 


| 
£ 





DOVE 


TU TU PU be be Rb be be be pe 
M—-OWONCTUILW-O 





S000 


SS SRN SEAN BRS SSE 


8 
NNNNN 


oS 


ANSP ER ERP PRERNS 


ee oe 
[OC 


7 
7 
7 
7 
7 
7 
7 
é 
7 
7 


SOORZSSKEN RERSSR PITRE REAS 


S208 





oO .£TU 


122777 
001401 
104000 


is 30(1046) O1-NOV-77 08:13 PAGE 29 


000010 


170730 


170724 


170642 


111$: 


112$: 


113$: 


114S: 


11S$: 


116$: 


1173: 


1188: 


119S: 


1208: 





JSR 


#10 
120$ 


SES 0035 


;TEST OF LOGICAL SHIFT 
;LOAD MQ Wit 
*LOAD AC WITH 
‘LOAD SHIFT COUNT (LSH) WITH 34 
-C AC WITH 1 
:IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 
-C MQ WITH O 
: IF NO.ERROR P HLT 
t TALL ERROR CH: 
-COMPARE SR WITH 10 
- IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 
LOGICAL SHIFT 
WITH 1 
WITH O 
FT COUNT (LSH) WITH 35 
AC WITH 20000 
HLT 
NE 
MQ WITH O 
HLT 
NE 
SR WITH 10 
HLT 
NE 
LOGICAL SHIFT 
WITH 1 | 
WITH O 
FT COUNT (LSH) WITH 36 
AC WITH 4 
HLT 
NE 
MQ WITH O 


- COMPARE 
-IF NO. ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


-COMPARE SR WITH 10 
-IF NO.ERROR SKIP HLT 
:CALL ERROR ROUTINE 
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Ns 
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1423 ss RHEL AAAAAA LALA LAAAAAAA ALARA LAAALAAALAAARALALRAAARLELARALRLLLLES 
1424 : TEST OF AC SHIFT INTO MQ 

1425 © + PKEZSKEZERESRSEKRESZARELEF REAKKREARAKRAERHAAAREARERASHARARARERAARARAAAARAEEE 
ise? 007416 Aéma: 

14 

1429 104400 SCOPE 

14 12777 170620 MOV #0, IMO 

14 12777 170610 MOV #0. JAC 

14 12777 177760 170616 MOV #-16..aLS 

14 2777 Oo0000 170574 CMP #0, aAc 

14 140 BEQ 64$ 

14 l O00 HLT 

14 64S: 

14 2777 oo0000 170564 CMP #0. MQ 

14 1401 BEQ 65$ 

1439 000 HLT 

14 6S$: 

144] 122777 000036 170560 CMPB #36, aSR 

iWie 001401 BEQ 66$ 

144 104 HLT 

1444 66S: 

1445S 

14Me 

144 Los SCOPE LOGICAL SHIFT 
144g le 000000 170536 MOV #0, 3MQ WITH O 

1449 012777 177777 170S26 MOV #-1.aACc WITH -1 

14 012777 177760 170534 MOV #-16..aLSH FT COUNT (LSH) WITH -16. 
is Oe era, oo000c0 170Sie CMP #0, aAC AC WITH O 

l 1401 BEQ 67$ HLT 

1453 104000 HLT NE 

14S4 67$: 

l 922777 177777 170502 CMP #-1,9MQ MQ WITH -1 

14 1401 BEQ 68S HLT 

HS 122777 oO00020 170476 CMPB #20, aSR SR WITH 20 

1460 1401 BEQ 69$ HLT 

1461 104000 HLT NE 

1462 69S: 

l 104400 SCOPE LOGICAL SHIFT 
1464 012777 1704S4 MOV #0, aMQ WITH O 

1465S 012777 177777 +170444 MOV #-1.aAC WITH -1 

14 012777 177741 1704Se2 MOV #-31..aLSH FT COUNT (LSH) WITH -31. 
146 777 oo00000 170430 CMP #0, aAc AC WITH O 

1468 001401 BEQ 70$ :IF NO.ERROR SKIP HLT 

1468 104000 ines HLT -CALL ERROR ROUTINE 

1471 022777 OO0001 170420 CMP #1,3MQ :COMPARE MQ WITH 1 
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170332 


es 
170308 
170264 
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170250 


LO3 


O1-NOV-77 08:13 PAGE 31 


71$: 


7e$: 


733: 


74S: 


75S: 


76S: 


773: 


71$ 


7 a 


$psezeo aAC 
#-16..aLSH 
#0. aac 

73% 


aaa naan 
74 

#20,aSR 

75$ 


#0, aMQ 
#S2S2S,aAC 
#-1 
#25252, JAC 
76$ 


0000, JIM@ 


KO 


CALL ERROR ROUTINE 
te NO, EACOMPORE SR WITH 23 


;CALL ERROR ROUTINE 





ALL 
WITH 20 

> IF NO ERROR SK T 

“CALL ERROR nak 
-TEST OF LOGICAL SHIFT 
GED fe SIR Sasoe 
it BAD Ca reT COUN er SH) WITH -1 
“COMPARE AC WITH 25252 

:IF NO. bor SKIP HLT 


‘CALL ERROR ROUTINE 
MQ WITH 100000 
-IF NO. ERK ROR SK OR SREP ML 
-CALL ERROR ROUTINE 
:COMPARE SR WITH O 
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78S 





#0. aMQ 
#106000, dAC 
a8, aac -@LSH 


#22,aSR 
61$ 






#0 
#1 TOo090, aAC 
#177743, , JLSH 


He Sa 


#4, JMQ 
g3$ 


#22,aSR 
84S 


#168000, JAC 
#177744, JL 
0,aA 


eee 


#10,aM@ 
86$ 


#22 ,aSR 





IF NO.ERROR SKIP HLT 
SCALL ERROR ROUTINE 
-TEST OF LOGICAL SHIFT 
WITH 


100000 
: Ab EY oy (LSH) WITH 177742 


‘Pout 0 gia aie ge 
NO, ERROR ROR SKIP HLT WITH 2 


COMPARE SR WITH 22 


oh gi EE gtr 


:[6aO Mo OF Logical SHIFT 


; LOAD AC Fe tel 100000 
AT COUNT (LSH) WITH 177743 


-IF NO. ERROR aft HLT 
-CALL ERROR ROUTINE 


A TE NOLERROR Site LT 


OMPARE SR WITH 22 


7 a eff ROR, skge pT 








; TEST OF LOGICAL SHIFT 
eL ne Heth 100000 
qe aptiel COUNT (LSH) WITH 177744 
Te AC WIT 
;IF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 
COMPARE MQ WITH 10 


-IF NO.E EaRO R SKIP HL 
: CALL ERROR RROUTINE§ 


;COMPARE SR WITH 22 


SEQ 0038 
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0 001401 BEQ 87$ -IF NO.ERROR SKIP HLT 
104000 -_ HLT ‘CALL ERROR ROUTINE 
SCOPE :TEST OF LOGICAL SHIFT 
le 000000 170000 MOV #0, aMQ ‘LOAD MQ WITH O 
16777 190000 167770 MOV #100000, 9AC ;LOAD AC_WITH 100000 
12727 17774S 167776 MOV #17774S. aLSH ‘LOAD SHIFT COUNT (LSH) WITH 177745 
777 000000 167754 CMP #0. aAC “COMPARE AC WITH O 
OO1401 BEQ ges HLT 
l a HLT NE 
2777 000020 167744 CMP #20, aMQ MQ WITH 20 
c 14 BEQ 89$ HLT 
l — HL NE 
5 122777 oO0022 167740 CMPB #22, aSR “COMPARE SR WITH 22 
1401 BEQ 90$ -IF NO.ERROR SKIP HLT 
000 HLT ‘CALL ERROR ROUTINE 
90S: E 
l 329 04400 SCOPE : 
1 12777 OOO000 167716 MOV #0. aMQ . 
10330 012777 100000 167706 MOV #100000, 3AC : 
10335 012777 A? 776 167714 MOV #177746, aLSH 
1 022777 9000 167672 CMP #0. 9AC 
1 001401 BEQ 91$ :IF NO.ERROR SK 
10354 T -CALL ERROR ROU 
10356 91S: 
1 2777 OOOO4O 167662 CMP #40, JMQ -C MQ WITH 40 
010364 1401 BEQ 92$ :IF NO.ERROR SKIP HLT 
010366 000 as HLT -CALL ERROR ROUTINE 
iF 55 122777 o00022 167656 CMPB #22, aSR “COMPARE SR WITH 22 
010376 001401 BEQ 93$ :IF NO.ERROR SKIP HLT 
010400 104000 HLT ‘CALL ERROR ROUTINE 
010402 93S: 
010402 104400 SCOPE :TEST OF LOGICAL SHIFT 
010404 012777 oODDDD0 167634 V #0, 9MQ oh Q@ WITH O 
b1041e bie? 100000 167624 MOV #100000, 3AC a0 WITH 100000 
1 12777 177747 167632 MOV #177747, aLSH ‘LOAD SHIFT COUNT (LSH) WITH 177747 
010426 0227 00 167610 CMP #0. a9AC i COMPARE AC WITH 
010434 O014 1 BEQ 94$ -IF NO.ERROR SKIP HLT 
010436 i040 aan HLT ‘CALL ERROR ROUTINE 
D1 0440 022777 OO0100 167600 CMP #100, aMQ -COMPARE MQ WITH 100 
10446 O01401 BEQ 95$ :IF NO.ERROR SKIP HLT 
910450 104000 : ae HLT :CALL ERROR ROUTINE 
0104S2 122777 oOO0022 167574 CMPB #22, aSR :COMPARE SR WITH 22 
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s ; LHHLAAKLAELLAAALASLKALLLLLAEALAA HLL ALLA LALAALAARAAAAARARAAARARERLES 


; AT THIS POINT, THE LOGICAL SHIFT 
WETitiiitititttitiititiitiiittiitiiiitiiiitiitiiiiiiiiiirerirece: 


s ; LLAHKEEKSLALAAESALELALLLALLAAHAARLLALA LAA RALLEL RRAAARAAREELALERE 
TEST OF ARITHMETIC SHIFT 









SHIFT RIGHT 
ee napea aie Rie  qee ey REC E R E ES 
SCOPE J ARITHMETIC SHIFT 
MOV #0, aMQ WITH O 
MOV #0; JAC WITH O 
MOV e-16. ASH FT COUNT (ASH) WITH -16. 
CMP #0,aAc AC WITH O 
BEQ 64§ HLT 
HLT NE 
B4- 
CMP #0, IMQ MQ WITH O 
BEQ 6S$ P HLT 
HLT INE 
6S$: 
CMP8 #36, 2SR SR WITH 36 
BEQ 66$ P HLT 
HLT INE 
66S: 
SCOPE sTEST OF ARITHMETIC SHIFT 
MOV #0 ang oh ng WI H O 
V a-l.a eL WITH - 
MOV #-16..3ASH oh IFT COUNT (ASH) WITH -16. 
CMP #-1,aAC if AC WITH -1 
EQ 67 :IF NO. P HLT 
78 HLT CALL INE 
a ta - no ,gaeere arge"a Ee — 
nat AC? ‘2A E tone 
CHPB #342, 9SR  o ;COMPARE SR WITH 342 
Ere CALL ERROR ROUTING 
69S: 
SCOPE ;TEST OF ARITHMETIC SHIFT 
MOV #0, MQ ‘LOAD MQ WITH O 
MOV #12S2S2. JAC ; LOAD AC WITH Lesese 
MOV #-16.. ASH -L SHIFT COUNT (ASH) WITH -16. 
CMP #-1, AC ‘COMPARE AC WITH -1 
BEG 70$ :IF NO.ERROR SKIP HLT 
HLT ‘CALL ERROR ROUTINE 


SEQ 0042 
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IF NO.ERR 
“CALL ERROR RO 
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MAINDEC- 
OZKEBB.P O1-NOV-77 SEQ 0044 

: 28 : erg ~ 4 a) . ER Asone leo: 

1 W i 2S arapeannat oa iat HESAREEFSRRSEESEERESHRELERERE EY SEHEREE RYE EL 

i632 11 SCOPE :TEST OF ARITHMETIC SHIFT 

l ll MOV #0, IMG -LOAD MQ WITH O 

18 il MOV #0. aACc eL AC WITH 0 

1 il MOV #16..aASH -L IFT COUNT (ASH) WITH 16. 

l 11 CMP 80, JAC A ORPARE AC WITH O 

1 11564 BE 64$ -IF NO. ERROR P HLT 

: i _ HL >CALL INE 

l ll 022777 oO0000 166450 CMP #0, aMQ -COMPARE MQ WITH O 

184 il BEQ 6s$ ; -ERROR SKIP HLT 

184 1 l es HLT ROUT INE 

1844 Oil 2777 OO0036 166444 CMPB #36, aSR SR WITH 36 

1684S O1161 BEQ 66$ OR SKIP HLT 

1846 1l6le 104000 HL ROUT INE 

l 11618 66S: 

1 11614 104400 SCOPE -TEST OF ARITHMETIC SHIFT 

184 11616 012777 177777 166422 Vv #-1.aMQ “LOAD MQ WITH -1 

l li 1 16641e MOV #0. 9AC i LOAD AC WITH O 

1851 O11 18522 17 166422 MOV #15. .aASH .L SHIFT COUNT (ASH) WITH 1S. 

185¢ 11 2777 077777 166376 CMP 877777, ; AC WITH 77777 

1 0116 1401 BEQ 7$ -IF NO. P HLT 

tee? Bees ve epehaapelmesinn 

1856 116 2777 100000 166366 CMP #100000, ama MQ WITH 100000 

1857 11 140 BEQ 68S . HLT 

1 11 1 HLT NE 

1BEO ti2ea 2777 OO0000 166362 — CMPB #0. aSR SR WITH O 

ieee 11672 05746 BEQ 69$ P HLT 

iBe> 11674 000 HLT INE 

1863 11676 69S: 

1865 011676 04400 SCOPE T OF ARITHMETIC SHIFT 

1 il i 77777 + 166340 MOV #-1.39MQ eh MQ WITH -1 

1867 011706 012777 bo0000 166330 MOV #0, JAC “LOAD AC WITH O | 

1868 011714 012777 OO00eO 166340 MOV #16. .aASH ‘LOAD SHIFT COUNT (ASH) WITH 16. 

1869 0117 2777 077777 166314 CMP #77777, JAC , COMPARE AC WITH 77777 

18 O117 1404 BEQ 70$ :IF NO.ERROR SKIP HLT 

1871 011730 1 am HLT ‘CALL ERROR ROUTINE 

1855 011734 022777 oOO0000 166304 CMP #0. MQ -COMPARE MQ WITH O 

1874 011742 OO1401 BEQ 71$ :IF NO.ERROR SKIP HLT 

187S 011744 104000 HLT -CALL ERROR ROUTINE 

1876 O11746 71S: 

1877 O11746 


lee777 000211 166300 CMPB #211,aSR ;COMPARE SR WITH e211 
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; COMPARE MQ WITH O 


sCOMPARE MQ WITH O 


RROR 





ERROR ROUT 





; IF NO 


: CALL 
;IF NO 


“CALL E 


ptg9, aac 
SH 
, JAC 
#0, MQ 
} 
#150, aSR 
#125252, aMG 
sePsac 
#0, IMQ : 
; #10,aSR 
esese, aNd 
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S2, JAC 
#0, IMQ 
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80$: 


81$: 


82S: 


83$: 


86$: 


80$ 
8541, 95K 


$5, 3A 
#16 4 
pet a 


sa, 


#10,aSR 
84S 


————— LL _——_— 


SEQ OO46 


da ERROR ROUTINE 


: CAL NO. cAROR Sete Ly -_ 


L ERROR ROUTINE 
A>! A itu cecse SHIFT 


EeeR Bolt "abe (ASH) WITH 16. 











-TEST OF ARITHMETIC SHIFT 
. SAD MQ WITH O 


8 





L 
L 





HH Hoa 
SHI a +H (ASH) WITH 16. 
100000 





SR WITH 110 
KIP HLT 


- IF NO. caROR SK 
‘CALL ERROR ROUTINE 


— _ — ——<—— - _ 
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:le SE@ 0047 
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5; ERRREALAEAEAAAL AREA LLLAREAEL ALAA LALALAL AA LLLEALRAERRALLLALAL RAKE 





1965 : AT THIS POINT, THE ARITHMETIC SHIFT WORK 
‘ee 25 36 36 0 3636 3 6 369 9 3 a A 9 9 a a a a a a a a a a a a 
ie a ee 
1969 METTCTTCC CC} CTO TOT C TTT TTT TT eT eet t tet ttt tite ete ett titi iile| 
1370 0123S2 NORMAL : 
197¢ 123S2 104400 SCOPE 
197 12354 Le??? 000000 165664 MOV #0, 3MG 
1974 Ol abe 777 O00000 165654 MOV #0. JAC 
1975 Ol 077 165662 CLR aNOR 
1976 12374 2777 OO0000 165642 CMP #0. JAC 
19 1 1401 BEG 64$ 
1378 l 1 HLT 
19 12406 64g: 
1980 O1 06 922777 000000 165632 CMP #0, IMQ 
1981 012414 1401 BEQ 6s$ 
1982 012416 104000 HLT 
1983 1e4e0 6S$: 
1988 12420 022777 017037 165624 CMP #017037, aSC 
1 ope 012426 001401 BEQ 66S 
{og 012430 104000 HLT 
1 2ee le43e 66$: 
1990 
199 1 04400 SCOPE 
igq2 pt Sy3q 12777 177777 165604 MOV #-1,aMQ 
1993 01244 12777 177777 165574 MOV 8-1. aAC 
1994 bles 77 165602 CLR aN 
199S 012454 022777 140000 165562 CMP #140000, JAC AC 
1396 G1 e462 0014 BEQ 67$ HL 
1997 O1e464 104 HLT NE 
1998 Ole4%66 67$: 
19939 o1e4 022777 oooo00 16SS5S2 CMP #0. JMQ -COMPARE MQ WITH O 
2000 012474 001401 BEQ 68$ :IF NO.ERROR SKIP HLT 
2001 D1e4"s 104000 sea HLT :CALL ERROR ROUTINE 
~d ic& ° 
2003 012500 022777 144036 165544 CMP #144036, aSC :COMPARE SC WITH 30. 
2004 : AND SR= 310 
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200S Ol 001401 BEQ 69% : IF NO.ERROR T 
g906 l 1g 104000 HLT -CALL ERRO 
1251 69S: 
leSle SCOPE NORMAL IZE 
12514 165524 MOV #0, aMQ TH O 
i0 Ol 165514 MOV #-1. 3AC TH -1 
391 l CLR aNOR NORMAL IZE 
1 l 165502 CMP #140000, dAC AC WITH 140000 
1 l BEQ 70$ HLT 
14 012544 HLT NE 
1S 1eS46 70$: 
e016 12S46 2777 oooo0D 165472 CMP #0. aMQ MQ WITH O 
l 1 1401 BEQ 71$ HLT 
sols Biesch tons ~~ . 
l 022777 144016 165464 CMP #i44016,aSC ; COMPARE SC WITH 14 
012566 001401 BEQ 725 -IF NO. ERROR SKIP HLT 
012570 104000 - HLT ‘CALL ERROR ROUTINE 


SRuN URIS 






12572 104400 SCOPE 
12574 012777 oO0001 165444 MOV #1,aMQ 
12602 012777 OOO000 165434 MOV #0; JAC 
12610 Lesuie CLR aJNOR 
2032 12614 bee? C000 165422 CMP 84N009, AAC 
l 1401 BEQ 73$ 
2034 l HLT 
l 733: 
20 1 2777 oo0000 165412 CMP #0, IMQ 
20 ? Leb 1401 BEQ 74§ 
1 l HLT NE 
20 12640 74S: 
2040 O12e640 022777 OO4036 165404 CMP #004036, JSC ; COMPARE SC¢_WITH 30 
Soue 012646 001401 BEQ 753 IF NO. ERROR STP HLT 
2043 O12e6S0 104000 HLT ‘CALL ERROR ROUTINE 
4 012652 75S: 
2046 
2047 Ol2e6S2 104400 SCOPE :TEST OF NORMALIZE 
2048 012654 12777 900005 165364 MOV #S, IMG ‘LOAD MQ WITH S 
4 lebbe 012777 OO00dD 165354 MOV #0’ JAC ‘LOAD AC WITH 3G 
2050 Ole670 005077 165362 CLR aNOR :START NORMALIZE 
2051 012674 O22777 OS0000 165342 CMP #SO000, JAC : COMPARE AC WITH SOOOO 
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76S: 


773: 


78S: 


79S: 


s0$: 


81$: 


82S: 


83$: 


BH: 


76$ 


#0, aMQ 
77% 


#004034 , JSC 
78$ 


#1. aMQ 
#100000, aAC 
#100000, JAC 
79S 


#1. amc 
sos 


#140000, aSC 
81$ 


#! °S2eS2,aMQ 
#170000, dJAC 


aN 
#100005, aAC 
82S 
#S2S20, aM@ 
83$ 


#140003, aSC 
84S 


O4 


- AND 
.ERROR 
CALL ERROR R 


IF NO 
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po0d02 


00304e 


000000 


800000 
oo0000 


000036 


em ee i Ee ee ee 


165070 


16507e 


«SE SE SE SE Se SE HE A ESE Se Se aE a a a a a a a a a a a 
: THIS POINT NORMALIZE WORKS 
 snguneasnnensuasnonsozpeobassncsossansnnnnncunnsassesanenacsent 


oe Se SE 6 SE HE 3 6 SE SE aE a aE aE ab a a a a a a a a a a a a a a a a 
- OIVIDE TEST 


; SRKHRREREREERRRE . AERLRERLAAAELALL ELLER LLL SE RRRALL LEE RRRAL ELLER 


on a) mace mmameoesnt 


: 2 en sCHECK FOR fG 
‘sis 


T 
| SURSENSSHSNSRSSSSESSUNSHSSRNNeee eee eee 


‘TY 


SE@ 00S0 


SCOPE sTEST OF MULTIPLY 
my iB SSB Fa tTHo ano mu rzeLy 
CMP ih an et 1 OO ARE At WITH O 
BEQ eet -IF NO.ERROR SKIP HLT 
— HLT ‘CALL ERROR ROUTINE 
; CMP #0, aMQ ARE MQ WITH O 
BEQ 6s$ F NO.ERROR okt P HLT 
oe HLT ROR ROUTINE 
CMPB #36, aSR :COMPARE SR WITH 36 


Se 


MO4 
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3 ‘3 013162 001401 BEQ 66S ; IF NO.ERROR SKIP HLT 
104000 HLT -CALL ERROR ROUTINE 
13166 ‘bes: 
& 
142 BI3I98 AT!99 izr777 sesso “gi TEAS 9G NEED” 
2149 013176 2777 000001 165044 MOV #1, OMUL icone WITH 1 AND MULTIPLY 
2150 13204 Sco; 177777 165032 CHP #71, aAc AC WITH = 
4 Teak 675: HLT £ NOLERROR. SKIP. HL 
154 O1 if 022777 177777 165022 CMP #-1,0M0 AE OMPARE MQ WITH -1 
iat: = ds BE 
2158 013230 122777 000342 165016 cHPB #342, aSR OMPARE SR WITH 342 
$166 813840 _— HL ‘CALL NO, ERROR, Skip NE 
5 iee 
5ie4 
$185 O13242 1044 SCOPE 
sles Blea flere, doses ters aaee aurir.y 
Sie fliers erect? Wei i 
sire Steere = ; 
$175 Blssce fae; OSSSEY tows "gee SRGSEN. omar ARIEPRE SN YET SESE 
6174 913302 104000 emt HLT ‘CALL MO ERROR ROUTINE 
2176 013304 122777 OO00340 164742 CMPB © #340, aSR ;COMPARE SR WITH 340 


O4 
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177 013312 001401 BEQ 725 -IF NO.ERROR SKIP HLT 
178 14 104000 . 7 HLT ‘CALL ERROR ROUTINE 
l SCOPE TIPLY 
518) t 13999 oseses 1 Vv #52525, ama WITH Ebcoc 
l l 2777 O0000e 164714 MCV #2, JMUL WITH 2 AND MULTIPLY 
183 013334 2777 OO0000 16 CMP #0. aAC ac WITH O 
184 13342 140 BEQ 73% HiT 
l l i HLT NE 
186 1 73S: 
187 l 2777. 1leSesS2 164672 CMP g12s252, aM0 MQ WITH 125252 
l 13354 140 BEQ 74 HLT 
2189 Ol l HLT NE 
190 l 74S: 
131 1 122777 000020 164666 CMPB #20, 2SR SR WITH 20 
1 1 1401 BEQ 755 HL T 
193 013370 104000 | HLT NE 
194 013372 . 75S: 
195 
137 13372 1044 SCOPE TEST OF TIPLY 
5138 13374 403399 125252 164644 MOV #125252, aMQ ‘LOAD MQ WITH 125252 
2200 O1 12777 O40000 164640 MOV #40000, aMUL eb MUL WITH 40000 AND MULTIPLY 
e201 EAE 2777 +1652eSe 164626 CMP #165252, JAC :C AC WITH 165252 
1341 1401 BEQ 76$ :IF NO.ERROR SKIP HLT 
2203 13420 104000 ail HLT ‘CALL ERROR ROUTINE 
5She See 022777 100000 164616 CMP #100000, aMQ MQ WITH 100000 
2206 Ol 0014 BEQ 775 HLT 
2207 O1343e 104000 HLT NE 
2208 013434 77S: 
e208 13434 2777 000300 164612 CMPB #300, aSR - COMP SR WITH 300 
l 13442 1401 BEQ 78$ :IF NO.ERROR SKIP HLT 
eell 013444 104000 HLT -CALL ERROR ROUTINE 
eel 013446 78S: 
Ae 
ssie 013446 104400 SCOPE -TEST OF MULTIPLY 
2216 0134 012777 100000 164S70 MOV #100000, aMQ ‘LOAD M@ WITH 100000 _— 
2217 013456 D127 7% 100000 164564 MOV #100000; aMUL ‘LOAD MUL WITH 100000 AND MULTIPLY 
e218 13464 ©2777 O840000 164SS2 CMP #40000 , JAC ‘COMPARE AC WITH 4O000 
2219 013472 OO01401 BEQ 79S : IF NO.ERROR SKIP HLT 
2220 013474 104000 a HLT ‘CALL ERROR ROUTINE 
pI S45E 022777 oOo000 164SHe CMP #0, MQ “COMPARE MQ WITH O 
013504 001401 BEQ 80$ :IF NO.ERROR SKIP HLT 
01306 104 PT aa HLT ‘CALL ERROR ROUTINE 
pi3etD 122777 OOOD10 164S36 CMPB #10,aSR -COMPARE SR WITH 10 
013516 O0:401 BEQ 81g :IF NO.ERROR SKIP HLT 
013520 104000 aoe HLT :CALL ERROR ROUTINE 
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164412 
164414 


164402 
177777 
177777 
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000320 


164360 


16 
164334 
164324 


164320 


BOS 


7 


ee ay ee nee ten Tee 


ST OF DIVIDE 
sg 0-0 0 0-0-3 0 a 9 9 9 a a 9 A A 9 a a a i a a a a a a a 


bivIDE 


1$: 


1$: 


-MINI: 


-HLT1: 
-CONT1: 


64S: 


65S: 


66S: 


#-1,aM@ 
65$ 


#320, aSR 
66$ 





IF 


CAL 


NO. ERROR SKIP 
ERROR ROUTINE 


L 


sTEST OF DIVIDE 

[LOAD M@ WITH O 

‘LOAD DIV WITH O AND DIVIDE 
SH NTO PS 


;CHECK AC’S SIGN 

;SET APROPRIATE N AND V BITS 
;WRONG SIGN 
;SET APROPRIATE N AND V BITS 


> TEST 
1 
cL 

SHIFT 






sCHECK AC’S SIGN 

;SET APROPRIATE N AND V BITS 
sWRONG SIGN 
;SET APROPRIATE N AND V BITS 


SR WITH 320 
HLT 


——_ ——_— —-  — + rrr 
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Te “er SEOPE 00, ‘ 
b13730 tree nov 68; SAC T 8. IV 
O1 3764 , i CMP #0; SRC WI ITH O REAAT NBER) 
013774 man HLT 
O1377e 164242 ; CMP #9 aMQ ITH O (QUOTIANT? 
14004 BEQ 68$ 
Bigs i. 
1401 68S: 
i 1 164236 cNPB #36, 95R i COMPARE OMPARE SR WITH 36 
: B18 a? hal °CRRGR wb ine 
l 69$: 
a8 Bisags SEF auasose, an 
14040 HOV 62, SOV 
B1aGsy Q ait 
i 70S: ras 
BT DED ; CMP #152525, aMQ 
1 BE 71$ 
1 HL 
plate 718: 
2 14 CMPB #320, aSR 
Ag BEQ 72$ 
141 HLT 
141 723: 
141 SCOPE 
wee y grae 
Bit Ba yt BLY PAX RBe: 
014136 0 BEG 
Bidive 733: 
iis CNP s2seS2, ONG OMPARE MQ i WITH 25252 (QUOTIANT? 
He aod. gS BL et 
14154 122777 oo00000 164072 : CMPB #0,aSR OMPARE SR WITH O 
014162 1401 BE 75$ NO. ERROF SKI IP HLT 
O14164 104000 a HL BALL L ERROR ROUTINE 
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76S: 


773: 


78S: 


798: 


80S: 


81$: 


82S: 


83S: 


84s: 


SCOPE 





rg 


* 

S1252e> SD1V 
#0, 3AC 
sagoono, a 


#320,aSR 
81$ 


ae309, AC 


$2526) 90 aDIV 
g34°"° 


#100000, JMG 
83$ 


#300, JSR 
84$ 





> TEST OF DIVIDE 

“LOAD MQ WITH 3 

L888 Biv wate 2 =-1 AND DIVIDE 
WITH O (REMAINDER) 


EG LOCRBRR STE EE" 


MQ WITH 1 (QUOTIANT) 
; IF NO. a, SKIP HLT 
;CALL ERROR ROUTINE 


No. casoe CRIP tat WITH 22 


‘CALL ERROR ROUTINE 












SED BE atthe B The ATNBERS™ 


; IF NO. EAR P HL 
;CALL ERROR ROUTINE 


M@ WITH 100000 (QUOTIANT) 
P HLT 

INE 

COMPARE SR . abies 320 


Ee ane 


; TEST OF DIVIDE 


Ae With Sses3 
12S2S 









DIV WITH @ AND DIVIDE 
ot, 1 (REMAINDER) 


NO. ERROR gy eA hit 100000 (QUOTIANT) 
26, NOLERROR Sere gt 
= COMPARE SR yeTH 300 


;IF NO.ERROR SKI 
:CALL ERROR ROUT 


; TEST OF DIVIDE 


SE@ OOSS 
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103$: 


104S: 


110$: 


111$: 


HLT 


;CALL ERROR ROUTINE 





Af MQ WITH 1 (QUOTIANT) 
»IF NO.E SKIP HLT 
*CALL ERROR ROUTINE 


; IF NO. ERROR SKIP HLT ™ 


;CALL ERROR ROUT 















sTEST OF 

ao 1 
esas 2 ee 
106$  ” : IF NO Pp 

*CALL ERRROR I 
#0, IMO -C MQ WITH O (QUOTIANT) 
107$ -IF NO. P HLT 

‘CALL E INE 
#10,aSR 
108$ : 


o aJSR 


118 - IF NO ERKOR CRIP HL 


SR bt 36 


‘CALL ERROR ROUTINE 








#2, 
#2, IMUL 
#2) JMUL 


;TEST OF SUCCESIVE MULTIPLIES 
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1S4 162612 MOV #2, IMUL 
s2e$ Bieuse IeSe04 MOY sw SAUL 
015444 162576 MOV #2, JMUL 
162566 MP #40000, aMO 
? O154e0 SEQ 138 :IF NO.ERROR SKIP HLT 
? l HLT ‘CALL ERROR ROUTINE 
2573 D1SHeS 112: one 
587s O1e470 BEG Ss ,IF NO.ERROR SKIP HLT 
154 HLT ‘CALL ERROR ROUTINE 
o255 atte! 1135: eg 22. SR CK STATUS 22 
5258 tedf3 SFO 114$ - IF No. ERE Kip Me 
1 mae HLT :CALL ERROR ROUTINE 
t SCOPE -TEST OF SUCCESIVE DIVIDES . 
151 MOV #40000, ama / 
S84 
15516 MOV ,@DIV 
i MOV POLY 
Vv Bo aDLV 
1 MOV wo’ DIV 
2589 015546 MOV 82, JDIV 
j MOV -@DIV 
; MOV 8’ IDIV 
Vv #2’ JOIV 
Vv ‘@DIV 
MOV be IDTV 
2 MOV DIV 
coer DISESe Nov sgB SDTV 
538 pt 2ess MOV $5° Sty 
O1S642 TST JAC 
2601 015646 BEQ 1158 ;IF NO.ERROR SKIP HLT 
1 am HLT -CALL ERROR ROUTINE 
t CMP #1, aMQ 
l BEQ 16$ :IF NO.ERROR SKIP HLT 
2606 015662 ic HLT ‘CALL ERROR ROUTINE 
pt eee y 122777 o00022 162362 CMPB #22, aSR “CHECK STATUS 22 
15672 OO14 BE Q 7$ IF NO. ERROR SKIP HLT 
16 i oa i —_ HL ‘CALL ERROR ROUTINE 
2612 015676 104400 SCOPE : TEST OR ALTERNATE MUL AND DIV 
e613 015700 012777 OS2S2S 162340 MOV #S2S25, aM 
261 1 12777 N00C MOV #40000, SIMUL 
l 1 12777 : 3 MOV #4 -@DIV 
261 1 12777 320 MOV #40000; aMUL 
2618 O15 012777 MOV #40000, aDIV 
= g O15 018777 0400 OM MOV #4 ’ aMUL 
l 12777 O400 162270 MOV #40000' DIV 
2621 O157S2 012777 O40000 162270 MOV #40000; aMUL 
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AST PROCESSING OF DATA 


IP HL 
CALL ERROR ROUTINE 
OR 
HE 
OR 
Pe 
SAVE 
SAVE 
HEC 
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Ty Ely ¢ Ty ty 


; IF NO.ERROR SK . 
p 
I 
p 
I 
;SAVE WITH DIVIDE 








#40000 
#40000 
40 
2S2S2 
#40000 


o=--0O00-t 
LCase newewewN - 


120 
MQ e 
#1 
le 


le 


#40000, 3DIV 
 aMUL 
,aDIV 
, aMQ 
(0)+ 
to) 
%1, #100000 
Ze, #165252 
2s 
3 -(0) . 
Se, -(0) 
“1 
2 
%2, #100000 
4g 
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001e4e 
002000 


000207 
o00S0e 
020031 
001710 


0000%e 


162006 
177S66 


161466 


JOS 


O1-NOV-77 O8:i3 PAGE SS 


- DEV: 
5-36 346 0-36 9 2 36 9 9 9 a A A 9 a na a a a a a a a a 
AT THIS POINT MUL ARE OK 


s LEEKEEAELLELLAAAAALARLLALLLLELLLRLE LE AAALSLLA ALARA ALLA RA LAE RE AAAS 
«36-36 bE 3 3 36 9 06 3 SE aS a A ES 3 9 2 A 0 a a a a a a a 


BELL ON PASS COMPL 
| HEIHEHEHEHEHHHEHEHHHHIHEHHBHHHIHIHHGHEB HE HEEHEBHEHIHEIBHEHEHEE 





JSR ;CHECK FOR CONT-G 
BIT 
aS 

64S: TSTB :IS TTY READY FOR NEXT CHARACTER? 
BPL -IF READY BIT (BIT 7)=0--NO, LOOP 
MOV #SEAE.%S ‘PRINT ERE OK 
JSR %7, TTOUT 


j FREREBNEND OF PASS CODE AND CHECK FOR AUTO MODE 


CODE 
«MG He Se HE SE HE See HE HE SE AE HE aE EH a ee a EE HHH EE ERE EH 


MOV ae42, x0 
BEQ DOAGN 
SENDAD: JSR 47, (%0) 
NOP 
NOP 
NOP 
DOAGN: 


j HOROSEESERSSESERERS SERED NRE TREE ee EE MH iT PROGRAA 
T CHECK FOR TRACE TRAP TO WITH PROGRAM 
PO Petr Pee Pee Pert PEPE PEL ETT EEL P ETT EP EEETT Pret 


iaannns ISR %.7 CK ; CHE CK K FOR CONT-G 
BIT #100 , JSWR ; SHOULD WE RUN WITH TRACE TRAP 
? 
Bee YESTRI ‘NO HAVE WE RAN WITH TRACE TRAP ON 
BEQ TRPA -IF SO RESTORE PREVIOUS CONTENTS 
MOV YESTR1, 14 
MOV YESTRe. 16 
BIC 20, PS ;CLEAR TRACE TRAP 
TRPA:  JIMP Gin ‘START OF TEST WITH TRACE OFF 
TRPB: 0 
; SAVE OLD CONTENTS, SET UP FOR TRACE TRAP 
YESTR: MOV 14, YESTR1 ;SAVE ODT PC 
MOV 16; YESTRe ‘SAVE ODT STATU 
MOV #YESRT, 15 :NEW TRAP VECTOR 
CLR 16 ‘NEW CONDITION CODES 
CLR PSW 
COM TRPB 


SEQ@ 0061 


KL LTT — ee wee 
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ZHENG 


De ee he ee be ee be ee 
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—e 
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ant 
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Ob he ae be ee ae Bae Bae fae be be an fae Be ae pe me Pe Pee ne me Ps Pe es Be ae Pe Pe 
Tv 


OOO OOOOOO00000000 
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0000e0 
162002 








161424 


161574 
177566 


020000 


000ee6 


000e le 


000152 


000126 


000102 


YESTR1 


YESTRe: 
YESRT: 


64S: 


6S$: 


66S: 


67$: 


68S: 


BMI 
BIS 


JMP 


Ooo 


RTI 


HALT 
SD SYSTEM TRAP C 
7 INT OUT THE ERROR P 
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1$ 
#20, PSW 
BEGIN 


C AND 





ALL 
ST 


(HLT 
ATUS REGISTER 


:SET TRACE TRAP 
-START OF TEST WITH TRACE ON 
;STORAGE FOR ODT PC_ 
:STORAG FOR ODT STATUS 


se TO PROGRAM FROM TRAP 
if I FAILED 


;CHECK FOR CONT-G 





;IS TTY READY FOR NEXT CHARACTER? 
-IF READY BIT (BIT 7)=0--NO, LOOP 
‘CHECK FOR CONT-G 

‘TEST FOR INHIBIT PRINT OUT 

:PC OF FAILING ROUTINE 

“CC OF ERROR C ITION 

jREPOSI ION THE STACK 

-IS TTY READY FOR NEXT CHARACTER? 
i IF RE vert (BIT 7)=0--NO, LOOP 
Gd TY READY FOR NEXT CHARACTER? 
-IF READY BIT (BIT 7)=0--NO, LOOP 
-SAVE Re 

; SAVE R3 

»SAVE RY 


;PRINT OCTAL NUMBER 


;IS TTY READY FOR NEXT CHARACTER? 
‘IF READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 


;IS TTY READY FOR NEXT CHARACTER? 
;IF READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 


; 13 TTY READY FOR NEXT CHARACTER? 
;IF READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 
‘RESTORE REGISTERS 


;CHECK FOR CONT-G 
;CHECK SR FOR HALT SWITCH 


-_——-8e —- 
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C-11-D2KEB-6 OS 1S eso 0083 
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000000 HALT - HALT ON ERROR 
FE cise, ower oo0ssa mone eet catte 
ipeeq fa 016222 o00042 3s BRP = ae4e RETURN. 10 AL B AOBE 
fase ie Cg BNE 2g :NO, CONTINUE 
_— : GET SWITCH AFTER HALT 
004767 000530 %7,CKSWR :CHECK FOR CONT-G 
an sRETURN TO MAINLINE 
ree Ol 
738 ig :DATA 
Bi : ? : STATUS 
ie5i 
i 
«BS IETS eee 
| 123 :GET LIST ADDRESS 
| 167 14 177744 :CLR INT FLAG 
«BEBE BIRD. BISTED Bene Boness 
| aT Hie 012767 00021 
| -IS TTY READY FOR NEXT CHARACTER? 
| 2813 a pp 476 -IF READY BIT (BIT 7)=0--NO, LOOP 
281 biter i : NEG SIGN PRINT 1 
eeie O1 774 7 177700 -POS SIGN PRINT O 
| <3 if 16703 BOOTS eit CET | READY T0'D N TOOD 
see 
eel 170ee 7 east  ConPENSRTES FO ORPL NT TOURING Bic 
; i ; = IT A" IN (est apres 
seei HITES BREE? ono: coo136 Cn ele 
585) Bi 7bs8 B51375 000126 Per a * NEIGHT 
l 000260 000120 
| | WR TE A cry T CHAR IN LIST 
5850 017066 bee767 OOuId2 ooD102 NARY WEIGHT 
2831 017074 005067 000100 
5835 Bi7104 Boese7 tae ; 
ceae tpiip BT 2709 000003 M aa ac FOR L TBD LOOP 
5836 17116 e584 0000S2 OO000S0 MOALD: ADD SEVEN, SEVEN “MAKING SEVENTY By SEVEN 
2838 017126 0013 BNE MOADD 
2839 017130 000730 BR START ;NX SEVEN SET GET NX OCTAL 
| 
| 


————— ee 


MOS 
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OZKEBB.Pi1 O1-NOV-77 08:12 SEQ 0064 
171 012767 oo000S oxD0044 #S, ASCNT -SEND S CHAR TO TTY 
cea) Bisia6 wal fe: 
3 17140 1 177540 TSTB aTPS i 1S TTY READY FOR xT CHARACTER 
17144 os BPL 4§ -IF READY BIT (BIT 7)=0--NO, 
4 0171 144 177530 MOV -(4) .aTPB 
284S i271 005367 000026 DEC Ascnt 
e647 154 poAeES BE tet Te 
8 0171 HOF HM: 
§ 017162 105777 177516 64S: TSTB aTPS -IS 
171 64S - IF 
171 T 47 ; HE 
171 TOODLE: O 
17174 SEVEN: 0 
2e8SY4 17 DECML: O 
eess Ol WGTCT: 0 
25 17 BINCT: QO 
17 ASCNT: QO 
17 LIST: 0 
2859 017210 0 
2860 017212 0 
e861 017214 0 
e862 017216 0 
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SEQ 0065 

: s LEEKERAARLELA LASALLE LLL REALL ALARA LAAAAE LALA LLALARAALERLRRA ALES 
: N ERED BY USER TRAP 
: - LEREREREALEALAELLEL LEAL ELLE LEAL LE LALLA LAA LALA REEL AE LAER ALE LE 
SCOPER: 

‘ISR “7 .CKSUR sCHECK FOR CONT-G 

BNE SCOPEB’ - SCOPE BIT IS A ONE 

MOV 3%6 , RETURN :NO SAVE “2 FOR NEXT TIME 
SCOPEB: CHP (6+, x6 ‘ REPOSITION Fae STACK 

IMP he ;SCOPE RETURN 
SCOPEC: JSR %.7,.CKSWR sCHECK FOR CONT-G 

BIT #46000, JSWR -TEST SR FOR SCOPE 

. ; $0 7AND ITERATION LOOP FOR EACH TEST 400 

oor : CHECK FOR CONT-G 

BIT -NO - TE T FOR ITERATION 

BNE ‘INHIBIT ITERATION 

BEQ sEXIT - DONE 

BR” AER CONE MORE. 
SCOPEG: CLR “CLEAR COUNT 

MOV ; SAVE SCOPE RETURN POINTER 

RTI ‘RETURN INLINE-NEXT TEST 
SCOPEF: 0 : COUNT LOCATION FOR ITERATION LOOP 
RE TURN: BEGIN . ‘ADDRESS OF LAST TEST 

"EVEN 

IMP 200 

_BLKB 40 
BUFF : a :FOR STACK POINTER 40 LOCATIONS 


ss Se AE SE SE 06 AE AE aE SE 06 0 A AE a a a aa HH a EERE 
: CHECK 4 te REGISTER ROUTINE. CHECKS FOR tG TO ALLOW CHANGING 


’ 
* 
, 


. NS USED: 
© 36 3636 0 36k AG AE 0 AE EE SE SE A 9 2 2 a a a a a a aa a a a a a a 


TEMPST: .WORD 0 
COUNT: .WORD 0 
ROSW: . WORD 0 
TIB: . WORD 0 


—— ee ee — 


! 
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CKSWR: 
CNTLU: 
SREAD: 
1S: 
33: 
2s: 
6S: 
4S: 
S$: 
6S: 
E 
#60, TI6 
TIB, TEMPST 
DEC COUNT 
BEQ S$ 
BR 1$ 
7$: MOV TEMPST, JSWR 
OUT: RTS 4.7 


CNE 


ITCH REGISTER PRESENT 


HARACTER 
STRIP OFF 





;WAS IT FIRST CHARACTER 
sCHANGE SWR IF NOT FIRST ONE 
GET OUT 


;START OVER IF NOT LEGAL CHARACTER 
;GET NITTY-GRITTY 
;ONLY WANT & DIGITS 


sCHANGE SWITCH REGISTER CONTENTS 
;RETURN TO PROGRAM 
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s LLEREFKLAAELALRAAAEAAAAKALAARKLEAALELAAAAALAAKLAAARARAARLARAALAAEEE 


UTINE SRR RH REESE 


TTY READ SUBRO 
= MG HE S06 HE HE EE SE AE Se SE SE a a a a a 


STKB. TIB 
TPS 

4$ 
TIB,dTPB 


’* NEW= 8’ 
°e? +f’ 


"*ERE OK «+ 8’ 


’* MAINDEC-11-DZ2KEB-B 8’ 


’* KE11 LOGIC TEST &’ 


;FIRST CHAR FLAG 


¥, 


XT_ CHARACTER? 
= , LOOP 


—_— — — ee gh A TTT ETE EEC LL, 
A - — 


DO6 
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sg AE SE SE Se 6 ae aE SE JE aE a a HH aa aaa aH 
; AS ROUT INE 


CII OUTPUT 
sf SKHKKRRKRERKARKARSRKRAARSAAAES SKRAAAEAEAAKRAKRAAARAKAAAARAAAARARAAAAARARAKLEE 


TTOUT: 





{2 FEE Oe Ret eNO R OR AE TER 


#’8&. (5) ‘CHECK FOR TERMINATOR 
EMPTY 
" 00, aTPS 


000046 
000100 176540 1S: 





——P 


Won 





51 % sCLEAR POINTER TO CHARACTER 
+ 000137 _EMPTY: #0, (5) ‘CRLF CHAR? 
= 000041 oor 4(S) sCHECK FOR RETURN TERMINATOR 
1$: ; 
176514 64S: TSTB aTPS :IS TTY READY FOR NEXT CHARACTER? 
BPL 64S ‘IF READY BIT (BIT 7)=0--NO, LOOP 
176504 1: MOVB ($)+,3TPB ‘TYPE CHARACTER 
RET: NC “Ss 
000020 MOV %5, . SAV ;SET UP NEW POINTER 
020222 MOV #. RETR, %S 
oooone REST: MOV “Sav. «Ss 
353 BR TTout 
3038 012 O41 .RETR: .BYTE 15,12,’! 
3039 "EVEN 
3040 . SAV: 0 
3041 ~ END 


TT — = —_— ee . -_- 


rm rr 


E06 
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225 261% 504% _# 353% 366% 380% 4O4# 417% 
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S49 Soge 574% S45 538 607% 620# bse 
633% 635 4 3% e7i p8ee GY 97 lex 
90S* So 3 3% 3 oe 960 73 980# 
986 993 100S# 1023 1030% #1036 1043% 10SS* 1061 
1068% 1074 1086 1 16s 1118 1133% 1136 1 3 1168% 
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1293% 1 1311 341% 1343 1357% 1389 l 1333 
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iges, Ss Leede 1g00% Bis" {843e jase 1960s 1e5G.  185¢* 
1993% 1882 3300 Seidu S08] 13235 bAeg g 5353 
6150 5168 e5ue scone e260 : 72% 2 oe $293 g310+ 
ca4S. SaSe de ate 248g 2S0b# SZ Sc 2S538% 
2540 2574 2630 
16 14268 
002444 3074 
4530 ® 
7204 *  ?833% eguOe PBNS* S78 
be acta 1741% 1760# 1778 1794 1813% 183S* 18S1* 1868 188S* 1901% 1918# 1934 
S32 18318 
40 17358 
97 e718 731 2893 
260e eae 32% 2856s 
pice 250 2710 2739 274S 2781 2786 2792 2869 2878 2882 29158 
att 2ails Pe oa ee 
000636 1748 
017176 2810% ¥ 
o00e4e 708 ge? *  e2292% gail 232 2346% 2365% 2381% 2400*% 2419%  2435% 
24S4% 07% # 2S2e3% 539% 2S58S* eSes6* 2587% eSssx e2589*% e590* 2S91% 
3522 Saase 2S35% e596 2S97# 2S98* 2616 2618 2e620* ecbee* cb24# 
6232 2698 
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3 396 4 408 41 421 425 434 4 44? 451 
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1936 197 198§ 1492 l g6 3 1132 140 1498 1441 1E28 
1475S 1$30 1847 1S6S 1581 1544 1617 1633 1651 1669 1685S 
1703 1769 4 14 1803 5oc6 1844 5oe0 he a 3320, 5355. 
138 piss gi7e B13) g803 Beek cea7e gauau cele gathy Babe 
2497 l 2548 2S78 2608 2634 





2516 
START 017012 2817 e6198 


RR —_——_— —— ———— ee — ee = . -_ 


——— ee 


— a 


— —_———— 


MAINDEC-11-DZ2KEB-8 
OZKEBB.P11 









Seuina 


a 


OOO0O0000000 


OO bb a he 





3 
017Se4 
30 


: 


o2e9 
mee? 


— 


Se 
gRooooR 
saree 
SréT ONE 


: Sas 


OO 
ruru 
OO 
<r AY 
no 


MACY11 30( 1046) 
O1-NOV-77 O8:le 


2 


rururoruroru 
Ry 
~— 





— — <— e A TT 


2916 


HOG 


O1-NOV-77 08:13 PAGE 67 


93% 


30404 


2e3es 


2831 


2733% 


26998 


428 


eeSls 
2cb9s 


esl elel 
# + 

Sd3e: 5436 
2977 
2773% 27988 
2764 2769 
23927 2931 
essss 
2788 

46% 48 # 
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